2. Разработать программу, которая запрашивает ввод целого числа в переменную Z, определяет и выводит на экран сообщение, какое это число – положительное, отрицательное или равное 0. Отладить программу и проверить правильность ее работы на числах -5, 0, 256, 10455.

3. Даны координаты точки на плоскости. Определить, в какой четверти лежит данная точка. Отладить программу, задав точки из различных четвертей самостоятельно.

4. Разработать программу, которая по введенному трехзначному числу определяет, является ли сумма его цифр двузначным числом, и есть ли в записи этого числа 4 или 7.

Var Z:integer;BeginWrite('Z = ');ReadLn(Z);if Z>0 then WriteLn('Положительное')else if Z=0 then WriteLn('Равное нулю')     else WriteLn('Отрицательное')End.Пример:Z = -5ОтрицательноеZ = 0Равное нулюZ = 256ПоложительноеZ = 10455ПоложительноеVar   X,Y:real;BeginWrite('X = ');ReadLn(X);Write('Y = ');ReadLn(Y);if (X = 0)and(Y = 0) then WriteLn('Начало координат')else if (X=0) then Write('Ось абсцисс')     else if (Y=0) then WriteLn('Ось ординат')          else if (X>0) then                  if (Y>0) then WriteLn('Первая четверть')                  else WriteLn('Вторая четверть')               else                  if (Y<0) then WriteLn('Третья четверть')                  else WriteLn('Четвёртая четверть')End.Пример:X = 0Y = 0Начало координатX = 0Y = 1Ось абсциссX = 1Y = 0Ось ординатX = 1Y = 1Первая четвертьX = 1Y = -1Вторая четвертьX = -1Y = -1Третья четвертьX = -1Y = 1Четвёртая четвертьVar   a,b,c,S:integer;BeginWrite('Введите трёхзначное число: ');ReadLn(A);b:=(a div 10) mod 10;c:=a mod 10;a:=a div 100;S:=a+b+c;if (9<S)and(S<100) then WriteLn('Сумма цифр(',S,') - двузначное число')else WriteLn('Сумма цифр(',S,') не является двузначным числом');if (a=4)or(b=4)or(c=4) then WriteLn('Цифра 4 есть') else WriteLn('Цифры 4 нет');if (a=7)or(b=7)or(c=7) then WriteLn('Цифра 7 есть') else WriteLn('Цифры 7 нет')End.Пример:Введите трёхзначное число: 74Сумма цифр(11) - двузначное числоЦифра 4 естьЦифра 7 естьВведите трёхзначное число: 71Сумма цифр(8) не является двузначным числомЦифры 4 нетЦифра 7 естьВведите трёхзначное число: 13Сумма цифр(4) не является двузначным числомЦифры 4 нетЦифры 7 нет