13. Составьте алгоритм для определения, есть ли среди цифр заданного целого трёхзначного числа одинаковые.
Ответ
Для это вспоминаем задачку, которая раскладывала трехзначное число на цифры a, b, c и потом их складывала в S. Используем оттуда готовые формулы, чтобы присвоить нашим переменным a, b, c соответствующие значения. А потом останется только сравнить a, b, c между собой. Это была задача 129 в раб.тетради и зад. 9 в данном учебнике. Оттуда берем первые шаги по присвоению a, b, c.
алг Определение наличия одинаковых цифр в трехзначном числе арг цел x, a, b, c, лит R рез R нач ввести Х a:=x div 100 b:=x mod 100 div 10 c:=x mod 10 если (a=b) and (a=c) and (b=c) то R:= «В данном числе есть одинаковые цифры» иначе R:= «В данном числе все цифры разные» все вывести R кон