Задача 32792 ...

makcum16

2019-01-17 23:19:16

составить разветвл алгоритмы

y = { cos x, x>0
{ sin x, x ≤ 0

vk370051121

2019-04-10 22:23:29

var
x, y: real;
begin
read(x);
if x>0 then y:=cos(x)
else y:=sin(x);
write(y);
end.