Предмет: Информатика,
автор: tamoke7630
С клавиатуры вводится трёхзначное число. Состоит ли это число из одинаковых цифр?
Помогите пожалуйста.
Ответы
Автор ответа:
1
Ответ:
var
a, n1, n2, n3: integer;
begin
Writeln('Введите трехзначное число: ');
Read(a);
n1 := a div 100;
n2 := (a div 10) mod 10;
n3 := a mod 10;
if (n1 = n2) and (n2 = n3) then
Writeln('Все цифры одинаковые')
else if (n1 = n2) or (n2 = n3) or (n1 = n3) then
Writeln('Две цифры одинаковые')
else
Writeln('Нет одинаковых');
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: TheKlop543
Предмет: Русский язык,
автор: КатринЕе
Предмет: Английский язык,
автор: Таняшечка
Предмет: Математика,
автор: 1джейси1
Предмет: Геометрия,
автор: vedloga2018