Среди трёхзначных чисел найти все числа кратные 2 и 7 и выведите их в Паскале напишите программу
Ответы
Ответ дал:
0
var i: integer;
begin
for i := 100 to 999 do
if ((i mod 2 = 0) and (i mod 7 = 0)) then
writeln(i);
end.
begin
for i := 100 to 999 do
if ((i mod 2 = 0) and (i mod 7 = 0)) then
writeln(i);
end.
Ответ дал:
0
Спасибо
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад