Question

Выведите на экран числа от 100 до 200 вывести на экран квадраты и кубы в диапазоне от -10 до +10 используя repeat

Answer 1

1)program gt;
var x:integer;
begin
x:=99;
repeat
x:=x+1; 
write(x,' ');
until x=200;
end.
2)program gt;
var x:integer;
begin
x:=-11;
repeat
x:=x+1; 
writeln(x*x,' ',x*x*x);
until x=10;
end.