выведите на экран числа от 100 до 200
вывести на экран квадраты и кубы в диапазоне от -10 до +10
используя repeat
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад