Номер 13, страница 117 - гдз по информатике 8 класс учебник Босова, Босова

Параграф 3.5. Алгоритмическая конструкция «ветвление». Разветвляющиеся алгоритмы. Глава 3. Основы алгоритмизации - номер 13, страница 117.

Условие.

13. Составите алгоритм для определения, есть ли среди цифр заданного целого трёхзначного числа одинаковые.

Решение.

var x,a,b,c: integer;
begin
readln (x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
if (a=b) or (a=c) or (b=c) then
writeln (’В данном числе есть одинаковые цифры’)
else
writeln (’В данном числе все цифры разные’);
end.
алг Определение наличия одинаковых цифр в трехзначном числе
арг цел x, a, b, c, лит R
рез R
нач
ввести Х
a:=x div 100
b:=x mod 100 div 10
c:=x mod 10
если (a=b) or (a=c) or (b=c)
то R:= «В данном числе есть одинаковые цифры»
иначе R:= «В данном числе все цифры разные»
все
вывести R
кон