Илья
5 год назад
Пожалуйста посчитайте решить плиз....
ОТВЕТЫ
Weaver Magnus
Oct 24, 2020
Var
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',Sqrt(4*x*x+1));
x:=x+0.2
Until x > 2.4;
End.
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',Sqrt(4*x*x+1));
x:=x+0.2
Until x > 2.4;
End.
43
