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

прграмма45 прграмма45    2   28.05.2019 09:29    1

Ответы
главный13 главный13  01.10.2020 13:21

Объяснение:

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.

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