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

Выведите на экран числа от 100 до 200 вывести на экран квадраты и кубы в диапазоне от -10 до +10 используя repeat
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы