< >

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

Ответы

Ответ дал: emblerik
0

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.

Похожие вопросы
Русский язык
2 года назад
1.Лексика-это... 2.В толковом словаре указывается не только...,но.... значение слов Ставить слова. Где я подчеркнула надо вставить слова
Русский язык
2 года назад
Помогите пожалуйста.Употребите правильно числительные. На конференцию собрались делегаты в количестве (534). Библиотека вуза пополнилась за последнее время (258 книг)   Численность жителей
Алгебра
7 лет назад
Помогите решить уравнения!!! 10 баллов!!! 5) 4х-3/2 - 5-2х/3 = 3х-4/3 6) х-1/3 + 5х+2/12 = 5+3х/4
Биология
7 лет назад
У людини ген полідактилії ( шестипалість ) домінує над нормальною будовою кисті. В сімї , дн мати має нормальну будову кисті , а тато шестипалий , народилась дитина з нормальною будовою кисты. Які
Математика
10 лет назад
помогите сколько будет 1дм2см-3см
Химия
10 лет назад
Реакция протекает по схеме 2SO3(г)=2SO2(г)+O2(г). Концентрация SO3 до начала реакции составляла 0,8 мольл. Вычислите конецентрацию всех веществ в момент когда концентрация SO2 составит 0,3 мольл.
Алгебра
10 лет назад
помогите доказать тождество!!!! (9у-3)(у+7)-13=(у+8)(у-4)-2
Математика
10 лет назад
У ПЕППИ И МОАНЫ ОДИНАКОВОЕ ЧИСЛО ЖЕМЧУЖИН ДЛЯ ИГРЫ В ШАРИКИ,А У ТОММИ ЖЕМЧУЖИН В ДВА РАЗА МЕНЬШЕ,ЧЕМ У ПЕППИ.ВСЕГО ЖЕ У НИХ ТРОИХ 200 ЖЕМЧУЖИН.СМОЖЕТ ЛИ ТОММИ НА СВОИ ЖЕМЧУЖИНЫ ВЫМЕНЯТЬ У РЫБАКОВ