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

Question

Информатика

Селивёрст

27 февраля, 12:46

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

+3

Ответы (1)

Знаете ответ на вопрос?

Нюня · Answer 1

var

a : integer;

begin

read (a) ;

if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 100 = a div 10 mod 10) then write ('yes') else write ('no') ;

end.