Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения
2048+1024=3072(бит/сек) - скорость нового соединения
73728/3072=24 секунды
В том, что каждый кадр, рисуется отдельно, потом скомпановывается в один файл.
Имя файла ''Физика.doc.''
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601
<u>1 Вариант</u>
1) Функция сравнивает два числа и если первое число больше второго, то находит их сумму, в противном случае находит их произведение.
a) a=6 b = 5; func(a,b) = 11
б) a=5 b = 6; func(a,b) = 30
2)
program chet;
var a:integer;
function check(x:integer):byte;
begin
if x mod 2 = 0 then check:=1 else check:=0
end;
begin
readln(a);
write(check(a))
end.
<u>Вариант 2</u>
1) Функция производит возведение числа x в степень y
a) x = 4 y = 3 ; s(x,y) = 64
б) x = 5 y = -2; s(x,y) = 0.04
2)
program module;
var a:real;
function modul(x:real):real;
begin
if x<0 then modul:=-x else modul:=x
end;
begin
readln(a);
write(modul(a))
end.