Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 оканчивающихся на 5. программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число  —  количество чисел, кратных 3 и оканчивающихся на 5.​

Bigrash Bigrash    1   21.03.2019 13:28    1

Ответы
ник5029 ник5029  26.05.2020 13:54

var k,n,i,x:integer;

begin

 readln(n);

 for i:=1 to n do begin

   readln(x);

   if(x mod 3 = 0) and (x mod 10 = 5) then

     k:=k+1;

 end;

 writeln(k);

end.

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