С клавиатуры вводится вещественное число. Если число, которое введено, меньше нуля, (т.е отрицательное), то на экран выводится текст "Отрицательное число", в противном случае (т.е при вводе числа больше или равного нулю) на экран выводится сообщение "Положительное число"
Ответ:
Вот, но только первые 2 задания, остальные не помню как делать)
Объяснение:
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;