Question

Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0,еслиx≤0x,если01. (y:3:0)
Запусти программу и введи значение x=19.

Answer 1

Ответ:

program uslovie;

var x,y:real;

begin

   readln(x);

   if x<=0 then y:=0 else if x>1 then y:=x*x else y:=x;

   writeln(y:3:0)

end.

Попробуй

Объяснение: