<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.
1) Var A,B:integer; Begin ReadLn(A,B); if (A>0)and(B>0) then WriteLn(A*B) else WriteLn(A*A+B*B); End.
2)
Const N=30; Var A:array[1..N] of integer; Begin For var i:= 1 to N do Begin A[i]:=random(100)-50; Write(A[i]:3,' '); End; WriteLn; For var i:= 1 to N do Begin if i mod 2 = 0 then A[i]:=0 else if i mod 5 = 0 then A[i]:=A[i]*2; Write(A[i]:3,' '); End; End.
Алфавит, в информатике называется мощность алфавита - N. Что бы узнать вес, количество информации в одной букве применяем формулу: N=2i i - степень в нашем случаи, N = 64 64 это 2 в шестой степени. Значит, вес одного символа - 6 бит
2. Вася работает на стройке. В первый день Вася натаскал 15кг материалов, во второй - 30, в третий - 10(Столбики А1, А2, А3 соответственно). В А4 запишите сколько вася натаскал за 3 дня. В колонке B запишите(через формулы) отношение за соответствующий день к общему количеству в процентах.