Program RD;
Var X:array [1..15] of real ;
i:integer ;
Begin
x[i] := random [24]
end.
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
Var a,b:integer;begina:=20;b:=21;repeata:=a+b;b:=b+1;until (b>99);writeln(a);end.
2 вида камней черный и белый. В бусах 10 камней. значит 2^10=1024 разных бусин