3. Какую задачу решает приведенный фрагмент программы. Все переменные имеют целый тип, N>0
program t1;
var
k, n, p: integer;
begin
K := 0; N := P;
while N <> 0 do
begin
K := K * 10 + N mod 10;
N := N div 10;
end;
if P = K then Writeln('да') else Writeln('нет');
end.

26
0

ПРоверка числа-палиндрома

Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат

Похожие вопросы

Интересные статьи из справочника

Форму набора каждый выбирает сам – по возможностям или по желанию. Спешим обрадовать: у коммерции тоже есть плюсы.
4859 +38
0
Несколько способов, которые помогут обратить критику себе на пользу. Проверено — работают.
391 +34
0
Сегодня вы студент, а завтра уже нет. Как вернуться к учебе после отчисления?
5684 +30
0
Низкие баллы по ЕГЭ - это вовсе не приговор. Как быть и куда податься после проваленных экзаменов - читайте в нашем материале.
9249 +26
0
Где лучше всего студентам живется?
4587 +25
1
Доверьте свою работу экспертам
Разместите заказ
Наша система отправит ваш заказ на оценку 31 538 авторам
Первые отклики появятся уже в течение 10 минут