N=15 i=4 бит/1сим
1024*4=4096 бит
2^12/2^3=2^9=512 байт
2^12/2^12=0.5 Кбайт
1 Байт-8
128битов-16
32 байта-256
1 кб-1024
1.5кб-1536
<span>Бокситы, алмазы, известняк, глина, стекольные пески</span>
Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
<span>end.
Пример:
a=5
b=3
c=8
<span>min=3
</span></span>
Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x > 2) then begin
if (a = b) then
writeln('a и b равны');
if (b = c) then
writeln('b и c равны');
if (a = c) then
writeln('a и c равны');
end
else
writeln('Поиск не состоялся');
end.