Cначала спускаемся на а(6) потом на. б(6) потом на б(8)
<span><span>var
a, b, c : longint;</span><span>function nod3 (a, b, c :longint) : longint;
begin
nod3 := nod (nod (a, b), c);
end;</span><span>function nod(var a, b: longint): longint;
begin
if (a = 0) or (b = 0) then
if a = 0 then
nod:= b
else
nod:= a
else
if a >= b then
nod:= nod( a mod b, b)
else
nod:= nod( a, b mod a)
end;</span><span>begin
read (a, b, c);
writeln (nod3 (a, b, c));
end.</span></span>
Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
Midi - другой тип. В этом расширении находятся аудио файлы
1) <span>i=1
2) по стратегии 4 вопроса </span><span>i=log2*12=4 бита
3) не знаю</span>