+35
1 год назад
Информатика
10 - 11 классы
var
n,a,sum,i:integer;
begin
write('n='); readln(n);
sum:=0;
writeln(-4 mod 4);
for i:=1 to n do
readln(a);
if (a mod 4=0) and (a<60) and (a>0) then
sum:=sum+a;
end;
writeln('sum=',sum);
end.
Не помнишь пароль?
Нет аккаунта? Пройди быструю регистрацию!
Передумали регистрироваться? Предлагаем войти на сайт!
Вспомнили пароль? Войдите на сайт
var
n,a,sum,i:integer;
begin
write('n='); readln(n);
sum:=0;
writeln(-4 mod 4);
for i:=1 to n do
begin
readln(a);
if (a mod 4=0) and (a<60) and (a>0) then
sum:=sum+a;
end;
writeln('sum=',sum);
end.