Question

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.

Answer 1

Var
  a,c:integer;
Begin
Writeln('Вводите числа (через Enter)');
  repeat
    Readln(a);
    if (a<>0) and ((a mod 10) = 0) and ((a mod 4) = 0) then inc(c);
  until a=0;
  Write('Количество чисел кратных 4 и оканчивающихся на 0 равно ',c);
End.
    

Answer 2

А можно где mod и div?