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

marehkolia2343Apple marehkolia2343Apple    2   22.05.2019 07:00    1

Ответы
shaimyr24 shaimyr24  17.06.2020 10:29

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

       n, i, k: integer;

begin

readln (n);

for i:=1 to n do

readln (a[i]);

k:=0;

for i:=1 to n do

if a[i] mod 4 = 0 then k:=k+1;

writeln (k);

end.

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