На pascal. по информатике: дана последовательность из 16 чисел(числа вводятся с клавиатуры). подсчитать количество чисел оканчивающихся на шесть.
195
479
Ответы на вопрос:
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.
Популярно: Информатика
-
таллвовоч30.05.2023 05:36
-
amalia11013.03.2023 13:17
-
Наоя08.11.2022 17:03
-
TimRus162rusg09.03.2020 13:58
-
vanchugovp02hjd22.02.2022 09:20
-
aidar200203215.11.2020 01:48
-
VAI8141612.04.2023 21:33
-
Polina6891109.04.2022 08:34
-
Дллллллллллл06.05.2022 19:49
-
mango3415.02.2023 14:55