Ответы
Ответ дал:
0
Var x : Real;
Begin
x:=0;
While x<=10 do
Begin
Writeln('x = ',x:4,' U = ',x+1:4);
x:=x+0.3;
end;
end.
Begin
x:=0;
While x<=10 do
Begin
Writeln('x = ',x:4,' U = ',x+1:4);
x:=x+0.3;
end;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад