Ответ(ы) на вопрос:
Гостьvar
x,y:real;
begin
Write('x='); Read(x);
if x>0 then y:=x-2
else
if x=0 then y:=5*x+10
else begin
Writeln('неверное значение x');
exit
end;
Writeln('y=',y)
end.
ГостьProgram n1;
var x,y: real;
begin
readln(x);
if x>0 then y:=x-2
else if x=0 then y:=5*x+10;
writeln(y);
end.
Не нашли ответ?
Похожие вопросы