Составить алгоритм и написать программу. пользователь вводит число а, программа определяет положительное число или отрицательное. ноль не учитываем.

var

  n, i: integer;

  s: string;

  isu: boolean;

begin

  write ('введите число: ');

  read (n);

  if (n > = 1000) and (n < = 9999) then

    writeln ('это число четырехзначное')

  else

    writeln ('это число не четырехзначное');

  s : = inttostr (n);

  isu : = true;

  for i : = 1 to length (s) - 1 do begin

    if s [i] < = s [i + 1] then begin

      isu : = false;

      break;

    end;

  end;

  writeln;

  if isu then

    writeln ('цифры расположены в порядке убывания')

  else

    writeln ('цифры не расположены в порядке убывания');

end.

Объяснение:

Вот что я нашла по этому

1) Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a > 5 ) a = a + 12; else { a = a - 7; if ( a > 5 ) a = a + 12; else a = a - 7;} *

2) Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a += 12; else a -= 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if (!(a < 5) ) a = 5; *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15? a = 10; b = 5; if ( a < 1 ... a > b ) a = a - 5; else a = a + 5;

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 1 || a < b) a = a - 5; if ( a > 1 && a == b) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a += 12; else { a -= 7; if ( a < 5 ) a + =12; else a -= 7;} *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 17? a = 10; b = 5; if ( a > 1 ... a < b ) a = a - 7; else a = a + 7;

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 5 ) a = 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a < 15 ) a += 12; else a -= 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 3; if ( a > b ) b = b + 12; else {a = a - 7; if ( a > b ) a = a + 12; else a = a - 7;} *

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3? a = 10; b = 5; if ( a < 1 ... a > b ) a = a - 7; else a = a + 7; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 1 && a < b ) a = a - 5; if ( a > 1 && a == b ) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; b = 5; if ( a > 5 && a < b ) a = a - 5; *

Определите значение переменной «a» после выполнения фрагмента программы: a = 10; if ( a > 5 ) a = 12; *

Сорян это только что я нашла