Напишите программу, которая в последовательности натуральных чисел определяет количество
чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами
числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100.
Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел,
кратных
171
173
Ответы на вопрос:
var
size, num, counter, i: integer;
begin
counter := 0;
read(size);
for i := 1 to size do
begin
read(num);
if num mod 3 = 0 then
counter := counter + 1
end;
write(counter);
end.
Популярно: Информатика
-
Насет220.11.2022 09:21
-
EvgenijKalashni21.05.2021 12:39
-
Dymai1111.10.2022 06:25
-
tgdnm22.09.2022 16:03
-
кросавиться1111113.11.2021 00:35
-
Мганвплмппррнвпол01.01.2022 15:00
-
KatiG03.05.2020 09:51
-
ykim133707.06.2023 17:44
-
annvggf01.09.2021 08:50
-
ololosha1430.05.2023 01:59