Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры.

Решите алгоритмом

Question

Информатика

Аггей

29 января, 03:53

Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры.

Решите алгоритмом

+3

Ответы (1)

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

Таня · Answer 1

Var

a, b, c, x:integer;

begin

write ('Введите трехзначное число. X=') ;

readln (x) ;

a:=x div 100;

b: = (x mod 100) div 10;

c: = (x mod 10) div 1;

if (a=b) and (b=c) then writeln ('Верно!')

else writeln ('Не верно') ;

readln;

end.

Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры.Решите алгоритмом

Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры.

Решите алгоритмом