Напишите программный код. Вывести на экран все 3-х значные числа, делящиеся на 3. (Вывод чисел в строку) ( паскаль)
30баллов
Ответы
Ответ дал:
1
Ответ:
var i,d: integer;
begin
for i:=100 to 999 do
begin
d:=i mod 3;
if (d=0) then
write(i,' ');
end;
end.
kriskamai2002:
p.s. до этого программа не правильно работала, немного изменила
щас работает?
да
спасибо большое
Ответ дал:
1
var
i: integer;
begin
for i:=100 to 999 do
if (i mod 3 = 0) then
write(i,' ');
end.
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад