<em>// PascalABC.NET 3.2, сборка 1404 от 16.03.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin // предполагается, что все три роста разные var a,b,c,max,nmax,min,nmin:integer; Write('Введите рост трех человек: '); Read(a,b,c); if a>b then begin // a - не min, b не max if c>a then begin max:=c; nmax:=3; min:=b; nmin:=2 end else begin max:=a; nmax:=1; if b<c then begin min:=b; nmin:=2 end else begin min:=c; nmin:=3 end end end else begin // b не min, a не max if c>b then begin max:=c; nmax:=3; min:=a; nmin:=1 end else begin max:=b; nmax:=2; if a<c then begin min:=a; nmin:=1 end else begin min:=c; nmin:=3 end end end; Writeln('Максимальный рост ',max,' у человека номер ',nmax); Writeln('Минимальный рост ',min,' у человека номер ',nmin) end.
Пример Введите рост трех человек: 169 172 170 Максимальный рост 172 у человека номер 2 Минимальный рост 169 у человека номер 1
Program rost; var R1,R2,R3,max:integer; begin writeln('Введите рост первого человека'); readln(R1); writeln('Введите рост второго человека'); readln(R2); writeln('Введите рост третьего человека'); readln(R3); max:=R1; if R2>max then begin max:=R2; if R3>max then max:=R3 end else if R3>max then max:=R3; writeln('Рост самого высого человека=',max); end.
Комп'ю́терна мере́жа<span> — система зв'язку між двома чи більше комп'ютерами. У ширшому розумінні </span>комп'ютерна мережа<span> — це система зв'язку через кабельне чи повітряне середовище, самі комп'ютери різного функціонального призначення і мережеве обладнання. </span>