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
    else y := x;
    writeln(y:3:0);
end.