Question

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

Answer 1

CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT (a(n) / 4) = a(n) / 4 THEN z = z + 1
NEXT i
PRINT z
END

Answer 2

Это программа из ГИА.. -_-

 

var a,b :integer;
begin
readln (a);
b:=0;
while a<>0 do begin
if (a mod 4 = 0) then
b:= b+1;
readln (a); end;
write (b);
end.