будьте, пожалуйста, внимательней. Вчера вечером была эта же задача.
znanija.com/task/1112711
бег - бог - рог - рок - рак - мак - маг - шаг
море-горе-гора-пора-пара-папа-сапа-саша-суша
миг-маг-мак-пак-пек-век;
бант-бунт-бурт-борт-корт-кора-коса
шар-шаг-лаг-луг-луб-куб
муха - муpа - туpа - таpа - каpа - каpе - кафе - кафp - каюp - каюк - кpюк - уpюк - уpок - сpок - сток - стон - слон
v = u * t.
<span>V - объем передаваемого файла в битах.
u - скорость передачи (бит/сек)
t - время в секундах.</span>
t = v/u
Для A:
<span>40% от исходного объема, то есть от 30 МБ = 30 * 0.4 = 12 мегабайт.</span>
1 мегабайт-1024 килобайтов, больше 1500килобайтов, 1гигабайт а 1000 килобайтов меньше и 10000битов:1024=9байтов так что они меньше
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(Tan(Exp(4) / 7 + (Pi * (ArcSin(0.27) - Cos(DegToRad(75))))
** (1 / 6)) / (Ln(5) + Log10(7)) * Tan(5 ** 4
- Range(1, 6).Aggregate(1, (p, q)-> p * q)))
end.
<h2>0.630443611995394</h2>
Во вложении приведен результат контрольного решения, выполненный в пакете компьютерной алгебры Maple15 и выведенный с 20 значащими цифрами.
Program n_6;
const
n=10;
var
m:array[1..n] of integer;
i,x,y,z:integer;
procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.
