Регистрация
kerimbaevazarema03
20.07.2020 02:36
Информатика
Есть ответ 👍

решите я не понимаю номер 5

119
442
Посмотреть ответы 1

Ответы на вопрос:

ледок
ледок
4,4(94 оценок)

var n,p,d : longint; a : array [0..9] of boolean; v : boolean;

begin

  readln(n);

  d: =n;

  v: =false;

  p: =0;

  while d> 0 do

  begin

      p: =p*10+(d mod 10);

      if a[d mod 10]=true then v: =true else a[d mod 10]: =true;

  end;

  if p=n then writeln('данное число палиндром');

  if not(v) then writeln('все цифры данного числа разные');

end.я не знаю работает ли это, если не работает напиши мне. я исправлю

Популярно: Информатика