50 ! составить разветляющейся алгоритм. дано трехзначное число. определить: - какая из его цифр больше - верно ли, что все его цифры одинаковые

223

245

Посмотреть ответы 2

Ответы на вопрос:

Антонио789176

Информатика

4,8(40 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var a,b,c: integer; // цифры числа n = abc var (i,j,k): =(1,2,3); // места цифр a,b,c, расположенных по неубыванию var s1: array[1..3] of string: =('первая','вторая','третья'); var s2: array[1..3] of string: =('первой','второй','третьей'); a: =n div 100; b: =(n div 10) mod 10; c: =n mod 10; // сортировка по неубыванию if a> b then begin swap(a,b); swap(i,j) end; if b> c then begin swap(b,c); swap(j,k); if a> b then begin swap(a,b); swap(i,j) end end; if c> b then writeln(s1[k],' цифра больше остальных') else if b> a then writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i]) else writeln('все три цифры одинаковы') end. примеры n= 638 третья цифра больше остальных n= 583 вторая цифра больше остальных n= 707 первая и третья цифры больше второй n= 444 все три цифры одинаковы