Question

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

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

Answer 1

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