Паскаль
напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа.
167
252
Ответы на вопрос:
var
n,count,i: integer;
begin
count: =0;
readln(n);
for i: =1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 < > 0) then
inc(count);
end;
writeln(count);
end.
ответ:
1 python, css+, html,
2 текстовый и графический редактор, системы с базами, тобличные квадраты
3bios
Популярно: Информатика
-
alobatsevi431.07.2022 05:28
-
dascha21schou25.01.2021 10:56
-
Катерика200417.02.2020 09:47
-
Vlad1521815.07.2021 17:06
-
overlord73507.05.2022 03:52
-
Eugene122301.04.2022 12:36
-
miladatulush2615.01.2022 10:07
-
mmhhmuraad11.09.2022 19:19
-
KNSVAL18.08.2021 19:21
-
DamirKa111130.04.2020 08:36