Umzar
5 год назад
Пожалуйста посчитайте решить плиз....
ОТВЕТЫ
Antero Esa-Pekka
Oct 24, 2020
Var
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',2*Sqrt(x+1)*Cos(x));
x:=x+0.25
Until x > 3.5;
End.
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',2*Sqrt(x+1)*Cos(x));
x:=x+0.25
Until x > 3.5;
End.
377
Смежные вопросы:
