Напишите программу, которая в последовательности - вопрос №436097 от xenia00000 08.03.2023 06:51

Question

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

xenia00000 · Answer

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....