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

Ответы (1)

Ильгиза 08.02.2025 1

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

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

Думаешь ответы не верны?

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