Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые;

1

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

2013-04-02T16:16:44+04:00

var

  a : integer;

begin

  write ('A = ');

  readln (a);

  if (a > 999) or (a < 100) then

    writeln ('Число не трехзначное')

  else if (a mod 10 = a div 100) or (a mod 10 = a mod 100 div 10) or

              (a div 100  = a mod 100 div  10) then

    writeln ('Да, есть')

  else

    writeln ('Нет, нету');

  readln;

end.