Вывести все двухзначные положительнык числа, кратные 5
Вывести все двухзначные положительнык числа, кратные 5
Гость
Ответ(ы) на вопрос:
Гостьbegin
var x := 10;
while x < 100 do
begin
writeln(x:3);
x += 5;
end;
end.
Гостьprogram del5;
var
x : integer;
begin
Сlrscr;
x:=10
while x<100 do
begin
writeln(x);
x:=x+5;
end
end.
Не нашли ответ?
Похожие вопросы