На 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.
Не нашли ответ?
Похожие вопросы