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

Дано трёхзначное число.верно ли что оно состоит из одинаковых цифр. решите через паскаль.
Гость
Ответ(ы) на вопрос:
Гость
var   a : integer; begin   read (a);   if (a mod 10 = a div 100) and (a mod 10 = a div 10 mod 10) then writeln ('yes') else writeln ('no'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы