danulpopov
Program Var_1; var x,y : real; begin //1 Write('Введите x -> '); Readln(x); if (x > 3) then Writeln('y = ', x*x + 5) else Writeln('y = ', x - 8); //2 Writeln('Введите x и y через пробел '); Readln(x,y); if (x > 0) then Writeln(x + y) else Writeln(x * x); end.
Answers & Comments
var
x,y : real;
begin
//1
Write('Введите x -> ');
Readln(x);
if (x > 3) then Writeln('y = ', x*x + 5)
else Writeln('y = ', x - 8);
//2
Writeln('Введите x и y через пробел ');
Readln(x,y);
if (x > 0) then Writeln(x + y)
else Writeln(x * x);
end.