Annettt
Опубликовано 6 лет назад по предмету Информатика от Annettt


1. Дано трехзначное число. Выяснить, является ли оно палиндромом («перевертышем»), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево

  1. Ответ
    Ответ дан ali07

    program xxx;

    var n, c, d, e, k : integer;

    begin

      wtite ('введите 3-х значное число N =');

      readln (n);

      c := n div 100;

      d := (n div 10) mod 10;

      e := n mod 10;

      k:= 100*e + 10*d + c;

      if n = k then write ('палиндром') else write('не палиндром')

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц