Напишите программу которая в последовательности целых чисел ...
Напишите программу которая в последовательности целых чисел определяет количество трехзначных чисел кратных 7
Есть ответ
12.12.2022
223
Ответ
Можешь не благодарить
var
a,n:integer;
begin
readln(a);
while a0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
