<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Примеры</u> n= 638 третья цифра больше остальных
Program pr; var a,s,p : real; begin writeln('Введите сторону квадрата'); readln(a); s := a*a; p := 4*a; writeln('Площадь = '); write(s); writeln('Периметр = '); write(p); readln(); end.
Const n=6; var a:array[1..n,1..n] of integer; i,j:integer; begin for i:=1 to n do for j:=1 to i do a[i,j]:=n-i+j; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; end.