Предмет: Информатика,
автор: Velizavetka
Помогите решить плиз....
Приложения:
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Русский язык,
автор: ekindirevich54
Предмет: Алгебра,
автор: erttrrtt69
Предмет: Русский язык,
автор: sofiaisakova00
Предмет: Геометрия,
автор: Daniil171