Pascal. Определить, образуют ли цифры числа симметричную последовательность
10-11 класс
|
var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите натуральное число больше 11: ');
Readln(a);
if a <= 11 then Writeln('11 - первое симметричное число')
else begin
Str(a, s);
n := Length(s); n2 := n div 2; flag := true; i := 1;
repeat
flag := (s[i] = s[n - i + 1]);
i := i + 1
until (not flag) or (i > n2);
if flag then Write('Число симметричное')
else Write('Число несимметричное')
end;
end.
Тестовое решение:
Введите натуральное число больше 11: 123454321
Число симметричное
Другие вопросы из категории
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
из ящика, чтобы обеспечить себя пары одного цвета. Скажите пожалуйста.
который раньше никогда не задавали. Это вопрос:
Читайте также
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
экране на 1, а вторая увеличивает на один старшую цифру числа. Например число 23 с её помощью превращается в число 33. Если старшая цифра числа 9, то вторая команда оставляет это число неизменимым. Программа для Прибавителя это последовательность команд. Сколько есть программ , которые преобразуют число 35 в 37 ?