Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
Ответ: 100011 в двоичной.
//Pascal ABC.NET 3.1 сборка 1256
begin
var sec1:=range(-50,50);
var sec2:=range(10,100);
sec1.except(sec2).Println;
end.
55 символов, 8 бит на символ, итого 55 байт.
(Алфавит содержит 256 символов, то есть каждый символ кодируется log 2 256 = 8 битами