Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек
Var
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
y:=y+(1/n);
WriteLn('y = ',y);
{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);
{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
Begin
y:=y+(1/i);
i:=i+1
End;
WriteLn('y = ',y)
End.
А) Чтобы перевести из 2-ой в 8-ую , нужно отделить от числа три цифры(так как в 8-ой системе двоичный триад (группа по 3 цифры) и под отдельности считаешь, а потом соединяешь получившееся числа! Вот пример: 101001, разбиваем по 3 цифры и считаем 101=>1*2^2+0*2^1+1*2^0=5 001=>0*2^2+0*2^1+1*2^1=1 В ответе получается число 51 в 8-ой системе! Чтобы в 16 систему перевести отделять по 4 цифры! Пример с тем же числом: 101001, нам не хватает 2-е цифры, значит добавляем 00, перед этим числом 00101001 и считаем 0010=>0*2^3+0*2^2+1*2^1+0*2^0=2 1001=>1*2^3+0*2^2+0*2^1+1*2^0=9 В ответе 29!
А в 10-ую переводи просто, не отделяя цифр и все!
Б)A=10 F=15 , вот и переводи 1015 в 2-ую систему , методом деления на 2!
Var
A: array [1..16] of real;
i, n: integer; //n - счетчик
begin
n:= 0;
for i:= 1 to 16 do
begin
writeln('Введите число');
readln(A[i]);
if A[i] = 0 then n:= n + 1;
end;
writeln('Количество нулевых элементов: ', n);
end.