Предмет: Информатика,
автор: 13579246
2 и 3 помогите умоляю прошу очень надо
Приложения:
![](https://files.topotvet.com/i/836/8366e93626d91082ee6654617283db93.jpg)
Ответы
Автор ответа:
0
Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')
else if x<= 1 then write('y = ',x*x-x)
else write('y = ',x*x - sin(Pi*x*x -1))
End.
Третья:
Var
S1,S2:real;
Begin
Write('Площадь круга = ');Read(S1);
Write('Площадь квадрата = ');Read(S2);
S1:=sqrt(S1/Pi);
S2:=sqrt(S2);
if S1<=S2/2 then write('уместится')
else write('не уместится');
End.
Похожие вопросы
Предмет: Физика,
автор: viola12385
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: rocckk6339
Предмет: Математика,
автор: ElizabethsBart
Предмет: Литература,
автор: 04081