<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 третья цифра больше остальных
{Предвещая недовольство: мне самому не нравится эта подпрограмма, но динамические массивы обычно не изучают в школьной программе}
//Pascal ABC.NET v3.1 сборка 1219
Const n1=5; m1=8; n2=6; m2=4;
Type matrixa=array[1..n1,1..m1] of integer; matrixb=array[1..n2,1..m2] of integer;
procedure FindInd(f:integer;maa:matrixa;mab:matrixb); Var i,j:integer; s:string; begin for i:=1 to n1 do for j:=1 to m1 do if maa[i,j]=f then s:=s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13); writeln('For A:'); writeln(s); s:=''; for i:=1 to n2 do for j:=1 to m2 do if mab[i,j]=f then s:=s+'['+inttostr(i)+']['+inttostr(j)+']'+chr(10)+chr(13); writeln('For B:'); writeln(s); end;
Var maa:matrixa; mab:matrixb; i,j,f:integer; begin randomize; writeln('Matrix A:'); for i:=1 to n1 do begin for j:=1 to m1 do begin maa[i,j]:=random(20); write(maa[i,j]:4); end; writeln; end; writeln('Matrix B:'); for i:=1 to n2 do begin for j:=1 to m2 do begin mab[i,j]:=random(20); write(mab[i,j]:4); end; writeln; end; readln(f); FindInd(f,maa,mab); end.
На первой картинке не понятно что на рисовано(( толи перец толи чили толи стручек но дальше все ясно ...т рак из(ба) (и)глаза в лески(т) (точто в скобках это удаленные буквы)