Question

Решить на паскале.

Дано целое неотрицательное число, меньшее 10000. Если число имеет меньше 4 знаков в десятичной записи, то нужно считать, что его десятичная запись дополняется слева незначащими нулями (например, 120 дополняется до 0120). Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое целое число.

Answer 1

var

       n: Word;

       s: string;

begin

       Read (n);

       Str (n, s);

       

       if n < 100 then

               s := '00' + n;

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

               s := '0' + n;

       

       if (s[1] = s[4]) and (s[2] = s[3]) then

               Write (1)

       else

               Write (Random (1000))      

end.

Str - процедура перевода числа n в строку s