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

x, если 0
Запустите паскаль и введите значение x = - 12

Question

Информатика

Леруся

4 марта, 22:39

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

x, если 0
Запустите паскаль и введите значение x = - 12

+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Запустите паскаль и введите значение x = - 12

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

x, если 0
Запустите паскаль и введите значение x = - 12