Дано 5 чисел, определить сумму четных заканчивающихся на 4

Через паскаль

Question

Информатика

Марюша

1 октября, 11:15

Дано 5 чисел, определить сумму четных заканчивающихся на 4

Через паскаль

+4

Ответы (1)

Знаете ответ на вопрос?

Ростяна · Answer 1

Var sum, I, n : integer;

begin

sum : = 0;

for i : = 1 to 5 do

begin

readln (n) ;

if (n mod 10 = 4) and (n mod 2 = 0) then sum : = sum + i;

end;

writeln (sum) ;

end.

Дано 5 чисел, определить сумму четных заканчивающихся на 4Через паскаль

Дано 5 чисел, определить сумму четных заканчивающихся на 4

Через паскаль