На Pascal. Задача по Информатике: Дана последовательность из 16 чисел(числа вводятся с клавиатуры). Подсчитать количество чисел оканчивающихся на шесть.

На Pascal. Задача по Информатике: Дана последовательность из 16 чисел(числа вводятся с клавиатуры). Подсчитать количество чисел оканчивающихся на шесть.
Гость
Ответ(ы) на вопрос:
Гость
var  n, i, count: integer; begin   count := 0;  for i := 1 to 16 do   begin    read(n);    if n mod 10 = 6 then count := count + 1;   end;  writeln(count); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы