Задание: Создайте программу. тема: Разветвлённый цикл. ребята, напишите пожалуйста...

Question

Задание: Создайте программу.
тема: Разветвлённый цикл.

ребята, напишите пожалуйста программу ко 2-ой задаче. даю 37 баллов

---

---

Comments

Паскаль

Answer 1

Вот программа:
var x,y:real;
begin
  write('Введите значение аргумента x=');
  readln(x);
  if x<-1 then y:=0<br>          else if x<0 then y:=x+1<br>                      else y:=1;
  writeln('При x=',x,' y=',y);
end.