Предмет: Информатика, автор: Lansmius4321

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4. PASKAL​

Ответы

Автор ответа: 5vladis5p728w1
2

program natural;

   uses CRT;

   var n, number, result, i: integer;

begin

   clrscr;

   writeln('Enter n');

   readln(n);

   result := 0;

   for i := 1 to n do

   begin

       readln(number);

       if number mod 4 = 0 then result := result + 1;

   end;

   writeln('Result is ', result);

   readln

end.


Lansmius4321: а это точно паскаль?
Похожие вопросы
Предмет: Алгебра, автор: aff3ct
Предмет: География, автор: SlazyIos