Question

Pascal ABC
Задача 1
составить программу которая запрашивает целое число не равное нулю сообщает положительное они или отрицательное и при этом положительное число уменьшает в 2 раза, отрицательные возводит в квадрат .
Задача 2 
составить программу , которая определяет является ли введенное число нечетным и выводит на экран сообщение да или нет .

Answer 1

Первая программа ,если не нравится исправлю
Добавил вторую

8bed095e170147fc6c975dbef2f6fc6f.pas

868c3aaead31e23a4052bde16f0cd627.pas

Answer 2

а вначале надо писать программ бегин ?????

Answer 3

да

Answer 4

Тут все прописано уже

Answer 5

1.
Program ZADACHA;
Uses crt;

var a: integer;

Begin clrscr;
      write('Введите целое число не равное нулю a = ');
      readln(a);
      writeln;
      if a<0 then
      Write('Число a отрицательное, результат = ', a*a)
     
      else
      Write('Число a положительное, результат = ', a/2);


End.


2.
Program CHETNOST;
Uses crt;

var a: integer;

Begin clrscr;
      write('Введите целое число a = ');
      readln(a);
      writeln;
      if (a mod 2) = 1 then
      Write('Да')
      else
      Write('Нет');

End.

8bed095e170147fc6c975dbef2f6fc6f.pas

868c3aaead31e23a4052bde16f0cd627.pas