Вторая:
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.

0 0

4 года назад

Написать программу переводящая заданную десятичную дробь в равную ей обыкновенную несократимую дробь,заданную числителем и знаме

Lizbeth [7]

Лол я не знаю азазаз

0 0

4 года назад

Помогите построить гистограмму Измерена частота пульса (уд в мин) у здоровых людей. Построить гистограмму согласно полученным д

Ширяев

Смотри полученные данные и саму гистограмму в прикреплённых картинках.

0 0

4 года назад