Запиши программу ** языке Паскаль для y= 0, если х<=0x, если 0<x<=1 x^(2), если...

Question

Запиши программу на языке Паскаль для y= 0, если х<=0<br>x, если 01
Запустите паскаль и введите значение x= -12

Comments

Условия написаны в одну кучу. Просьба сфотографировать задание или переписать его дословно.

---

0, если x<=0 x, если 0<x<=1 x^(2), если x>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 <br>y:=x;writeln('Y= ',y);
end;
if x>1 then begin 
y:=sqr(x);writeln('Y= ',y);
end;
end.