Напишите программу, которая в последовательности - вопрос №7257535 от arzuvelieva 10.01.2021 13:14

Question

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

arzuvelieva · Answer

Program g;var i,a,b,c:integer;begin  b:=0;  c:=0;  write( Введите  кол-во чисел - );read(a);  for i:=1 to a do begin     read(b);    if (b mod 4 = 0)then c+=1;  end;  write( количество чисел, кратных 4 - ,c)end....