Составьте программу, проверяющую, является ли число палиндромом

@Владимир_73 · Регистрация: 20.05.2013

Author24 — интернет-сервис помощи студентам

Составьте программу, проверяющую, является ли число палиндромом (например, число 12421 - палиндром).

@Cyborg Drone · 17.06.2013, 23:09

Разбирайтесь.

Pascal

program Palindrome;
 
uses crt;
 
//объявление переменных
var i, n: integer; //счётчик и само число
    f: boolean; //флаг палиндрома
    s: string; //строка для числа
 
begin
  f := true; //пока считаем, что число - палиндром
  write('Enter number: ');
  readln(n); //вводим число
  if n < 0
    then f := false //отрицательное число - не палиндром
    else
      if n <= 9
        then f := true //одноразрядное число - палиндром
        else //разбираемся с остальными вариантами
          begin
            str(n, s); //переводим число в строку
            for i := 1 to (length(s) div 2) do //цикл до половины строки
              begin
                if s[i] <> s[length(s) - i + 1] then f := false;
                //если зеркальные цифры не совпадают - не палиндром
                end;
          end;
  //печатаем результат
  if f then writeln('Palindrome')
       else writeln('No palindrome');
  readln; //ждём реакции пользователя перед закрытием программы
end.

@Владимир_73 0 / 0 / 0 Регистрация: 20.05.2013 Сообщений: 29
		1
	Составьте программу, проверяющую, является ли число палиндромом 17.06.2013, 19:24. Показов 2168. Ответов 1 Метки нет (Все метки) Составьте программу, проверяющую, является ли число палиндромом (например, число 12421 - палиндром). 0

	17.06.2013, 23:09

Составьте программу, проверяющую, является ли число палиндромом

Решение