Ответы
Ответ дал:
0
program dz;
var x, y : integer;
begin
writeln('введите х');
readln(x);
if x<0 then y:=x*x
else if x=0 then y:=sin(x)
else y:=cos(x);
write(y)
end.
на языке pascal
var x, y : integer;
begin
writeln('введите х');
readln(x);
if x<0 then y:=x*x
else if x=0 then y:=sin(x)
else y:=cos(x);
write(y)
end.
на языке pascal
Ответ дал:
0
var x,y: real;
begin
readln(x);
if x<0 then y:=x*x else
if x=0 then y:=sin(x) else
if x>0 then y:=cos(x);
writeln('y=',y);
end.
begin
readln(x);
if x<0 then y:=x*x else
if x=0 then y:=sin(x) else
if x>0 then y:=cos(x);
writeln('y=',y);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад