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