Склавиатуры вводятся 18 чисел. найти сумму всех чисел кратных 4.программу написать, используя 3 переменных и оператор цикла repeat -until

ilyas59 ilyas59    2   24.04.2019 09:30    0

Ответы
Sodomovap Sodomovap  08.06.2020 16:01

program raf105;

var a:array[1..18] of integer;

b,i:integer;

begin

writeln('Вводите числа по очереди');

repeat

 i:= i+1;

 readln(a[i]);

 if (a[i] mod 4)=0

   then b:= b+a[i];

until i=18;

writeln('Сумма чисел кратных четырём: ',b);

end.

Язык программирования PascalABC

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика