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

Ответы (1)

Гиацинт 25.03.2024 0
Var a, a1, a2, a3:integer;beginreadln (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Одинаковые цифры есть

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ