Введите с клавиатуры 8 положительных целых чисел. определите, сколько из них делится на 3 и оканчивается на 4. программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4.
279
368
Ответы на вопрос:
Var b,i: integer; a: array [1..8] of integer; begin writeln('введите числа'); for i: =1 to 8 do read(a[i]); b: =0; for i: =1 to 8 do if (a[i]mod3=0) and (a[i]mod10=4) then b: =b+1; writeln(b); readln; end.
Популярно: Информатика
-
StePAHka22830.11.2022 00:13
-
125202.02.2022 15:22
-
igorzarubin200617.08.2020 22:06
-
ROLBER06.12.2020 14:40
-
eliot4007.12.2022 20:53
-
Король23403.01.2022 13:22
-
vlad2007727.08.2020 06:59
-
рома134203.01.2023 14:04
-
Den737315.04.2023 02:25
-
MIGSTERY1024.03.2023 13:00