Question

Для различных вводимых с клавиатуры целых чисел найдите количество чисел, кратных 5. ( Написать программу в PASCAL )
Даю 15 баллов!

Answer 1

Ответ:

Объяснение:

var

 n, i, k, m: integer;

 

begin

 k := 0;

 readln(n);

 for i := 1 to n do

 begin

   readln(m);

   if (m mod 5 = 0) and (m mod 10 = 0) then

     inc(k)

 end;

 writeln(k);    

end.