Упр.3.197 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Задача

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(‘Количество чисел кратных 3 и оканчивающихся на 2 > ‘, k)
end.

Подробный ответ

Нужно просмотреть все числа последовательности и посчитать те, которые одновременно удовлетворяют двум условиям:

кратны $$3$$, то есть $$a \bmod 3 = 0$$;
оканчиваются на $$2$$, то есть $$a \bmod 10 = 2$$.

Для подсчёта заведём счётчик $$k$$, сначала равный $$0$$. Затем по очереди будем вводить числа и увеличивать $$k$$ на $$1$$, если оба условия выполняются.

program z_197;
var
  n, a, k: integer;
begin
  readln(n);
  k := 0;
  repeat
    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.