Составить программу которая определяет наличие одинаковых цифр в произвольном 3-значном числе

Question

Информатика

Раяд

31 августа, 17:31

Составить программу которая определяет наличие одинаковых цифр в произвольном 3-значном числе

+3

Ответы (1)

Знаешь ответ?

Браги · Answer 1

Var a, a1, a2, a3:integer;

begin

readln (a);

a1:=a div 100;

a2:=a div 10 mod 10;

a3:=a mod 10;

if (a1=a2) or (a1=a3) or (a2=a3)

then writeln ('Одинаковые цифры есть')

else writeln ('Одинаковых цифр нет');

end.

Пример:

121

Одинаковые цифры есть