Запиши программу на языке Паскаль для y = 0, если х<=0

x, если 0

Question

Информатика

Ивася

5 ноября, 19:14

Запиши программу на языке Паскаль для y = 0, если х<=0

x, если 0

+1

Ответы (1)

Знаете ответ на вопрос?

Зенона · Answer 1

Program Program1;

var x, y:real;

begin

write ('Введите значение X: ') ;

readln (x) ;

if x=0 then

begin

y:=0; writeln ('Y = ', y) ;

end;

if (x>0) and (x<=1) then begin

y:=x; writeln ('Y = ', y) ;

end;

if x>1 then begin

y:=sqr (x) ; writeln ('Y = ', y) ;

end;

end.

Запиши программу на языке Паскаль для y = 0, если х<=0x, если 0

Запиши программу на языке Паскаль для y = 0, если х<=0

x, если 0