Помогите пожалуйста. программа Паскаль дано трехзначное число. Напишите программу, которая определяет: является ли число перевертышем, т.е числом, десятичная запись которого читается одинаково слева направо и справа налево Пример входных данных: 122, 121, 222 Пример выходных данных: нет, перевертыш, перевертыш

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-04T18:58:37+00:00

var
  c, f, First, count:integer;
begin
  write('c = ');
  readln(c);
  f := c;
  while (f div 10 > 0) do
  begin
    First := f div 10;
    count := 1;
    while (First div 10 > 0) do
    begin
      First := First div 10;
      Inc(count);
    end;
    if First <> f mod 10 then
    begin
      writeln('No');
      readln;
      Exit;
    end;
    
    while count > 0 do
    begin
      First := First * 10;
      dec(count);
    end;
    f := f - First;
    f := f div 10;
  end;
  writeln('Changeling');
  readln;
end.