Укажите, какая задача решается по данному алгоритму.

алг Задача

вещ Х

нач ввод Х

если Х<0

то вывод «отрицательное число»

иначе вывод «положительное число»

кв

кон

А) Определить, является ли введенное число трехзначным.

Б) Определить, является ли введенное число четным.

В) Определить, является ли введенное число положительным или отрицательным.

Г) Определить, является ли введенное число нечетным.

​

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.