7класс
Номер 3.197, ГДЗ по информатике за 9 класс к сборнику задач и упражнений Босовой
Номер 3.197. Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем - сами числа. Количество чисел не превышает 1000. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2
program Z_197;
var
n, a, k: integer;
begin
write('Введи количество чисел>');
readln(n);
k := 0;
repeat
writeln('Введи число > ');
readln(a);
if (a mod 3 = 0) and (a mod 10 = 2) then k := k + 1;
n := n - 1
until n = 0;
Writeln('Количество чисел > ', k)
end.
