Решить на паскале. Дано целое неотрицательно - вопрос №1400969110000 от Ivan251109 10.06.2020 09:52

Question

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

Ivan251109 · Answer

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) + 2)       end.Str - процедура перевода числа n в строку s...