сервис вопросов и ответовPascal. Определить, образуют ли цифры числа симметричную последовательность
10-11 класс|
|
Tatsiana
30 сент. 2014 г., 3:45:04 (9 лет назад)
Паша2012
30 сент. 2014 г., 5:50:41 (9 лет назад)
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
Число симметричное
Ответить
Другие вопросы из категории
Дан массив целых чисел из n
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
Ученик собрался на вечер, когда погас свет в комнате, где в ящике шкафа лежали его коричневые и синие носки. Какое наименьшее число носков он должен взять
из ящика, чтобы обеспечить себя пары одного цвета. Скажите пожалуйста.
С появлением мобильной связи люди стали задавать вопрос,
который раньше никогда не задавали. Это вопрос:
Читайте также
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
У исполнителя Прибавитель 2 команды, которым присвоены номера: 1. Прибавить 1 2. Увеличить старшую цифру числа на 1. Первая из них увеличивает число на
экране на 1, а вторая увеличивает на один старшую цифру числа. Например число 23 с её помощью превращается в число 33. Если старшая цифра числа 9, то вторая команда оставляет это число неизменимым. Программа для Прибавителя это последовательность команд. Сколько есть программ , которые преобразуют число 35 в 37 ?
Вы находитесь на странице вопроса "Pascal. Определить, образуют ли цифры числа симметричную последовательность", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.