Запиши программу ** языке Паскаль для: y=0,еслиx≤0 x,если01. (y:3:0)- хз для чего это...

Question

Запиши программу на языке Паскаль для:
y=0,еслиx≤0
x,если01.
(y:3:0)- хз для чего это
Запусти программу и введи значение x=−4.

Answer 1

Var
    x, y: real;

begin
    readln(x);
    if x <= 0 then y := 0<br>    else y := x;
    writeln(y:3:0);
end.