Предмет: Информатика,
автор: mishk981
Найти сумму двухзначных чисел кратным 3
Ответы
Автор ответа:
0
Можно так:
var i: integer;
begin
for i:=10 to 99 do
if i mod 3=0 then write(i:3)
end.
Или вот так:
var i: integer;
begin
i:=3;while i<100 do
begin
write(i:3);
i:=i+3
end
end.
var i: integer;
begin
for i:=10 to 99 do
if i mod 3=0 then write(i:3)
end.
Или вот так:
var i: integer;
begin
i:=3;while i<100 do
begin
write(i:3);
i:=i+3
end
end.
Похожие вопросы
Предмет: Английский язык,
автор: arystansarsikeev
Предмет: Русский язык,
автор: mirbek22
Предмет: Физика,
автор: ilyanik456456x
Предмет: Математика,
автор: денисками
Предмет: Физика,
автор: Dotvro