Определить, есть ли среди цифр заданного трехзначного числа одинаковые

@beautyanytik · Регистрация: 29.10.2013

Author24 — интернет-сервис помощи студентам

Привет! Помогите составить код прогргаммы для следующей задачи и объяснение этого кода пожалуйстааа.....
"ОПРЕДЕЛИТЬ, ЕСТЬ ЛИ СРЕДИ ЦИФР ЗАДАННОГО ТРЕХЗНАЧНОГО ЧИСЛА ОДИНАКОВЫЕ?" P.S. Нужен как можно более простой и понятный код, так как мы только начинаем создавать программы)

@Mikky Lova · 29.10.2013, 19:53

Pascal

 var p1,p2,p3,m : integer;
begin
 
readln(m);  // Вводим число
p1:= m div 100;   // Находим 1 цифру по порядку(слево на право)
p2:= m div 10 mod 10; // Находим 2 цифру по порядку
p3:= m mod 100 mod 10; // Находим 3 цифру по порядку
 
if (p1=p2) or (p1=p3) or (p2=p3) then   // И проверям, встречается ли у нас одинаковые цифры в этом числе
                                       writeln('Yes') else
                                       writeln('No');

@beautyanytik · 29.10.2013, 19:55 **[ТС]**

Спасибо большое!)

@beautyanytik 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 29
		1
	Определить, есть ли среди цифр заданного трехзначного числа одинаковые 29.10.2013, 18:41. Показов 4548. Ответов 2 Метки нет (Все метки) Привет! Помогите составить код прогргаммы для следующей задачи и объяснение этого кода пожалуйстааа..... "ОПРЕДЕЛИТЬ, ЕСТЬ ЛИ СРЕДИ ЦИФР ЗАДАННОГО ТРЕХЗНАЧНОГО ЧИСЛА ОДИНАКОВЫЕ?" P.S. Нужен как можно более простой и понятный код, так как мы только начинаем создавать программы) 0

@beautyanytik 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 29
	29.10.2013, 19:55 [ТС]	3
	Спасибо большое!) 0

Опции темы