Задача 32792 ...
Условие
информатика ВУЗ
650
Все решения
x, y: real;
begin
read(x);
if x>0 then y:=cos(x)
else y:=sin(x);
write(y);
end.
x, y: real;
begin
read(x);
if x>0 then y:=cos(x)
else y:=sin(x);
write(y);
end.