128221 = 1F4DD₁₆
Каждая пара шестнадцатиричных цифр занимает 1 байт, у нас 2,5 пары, следовательно, нужно 3 байта.
var
n:integer;
begin
write('Сколько человек? ');
readln(n);
var a:=ArrRandom(n,150,190).Print;
end.
<span>
Сумма =
<span>82080
Рекомендую часть строк скрыть, тогда легче работать с большой базой данных.</span></span>
Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.