Регистрация
jamesa99
30.04.2020 19:42
Информатика
Есть ответ 👍

Ментальная карта устройства ПК

130
268
Посмотреть ответы 1

Ответы на вопрос:

sodel28
sodel28
4,5(74 оценок)

program pr;

 

var

 i, n, sum, m: integer;

 

begin

 writeln('Введите количество чисел');

 readln(n);

 sum := 0;

 for i := 1 to n do

 begin

   read(m);          

   if (m mod 4 = 0) and (m mod 10 = 4) then

     sum := sum + m;

 end;

 writeln;

 writeln('Сумма: ', sum);

end.

Объяснение:

Популярно: Информатика