1. Переданная информация в битах:
6400 килобайт * 1024 = 6553600 байт.
переведем в биты:
6553400 * 8 = 52428800 бит
2. Разберемся с избыточностью. По условию надо добавить 10% информации
52428800*1.1 = 57671680 бит передаем.
3. Рассмотрим пропускную способность канала
5 мегабит\секунду. переведем в килобиты:
5*1024 = 5120 килобит в секунду.
переведем в биты в секунду = 5120*1024 = 5242880 бит в секунду
4. Находим время передачи информации:
57671680 / 5242880 = 10.987
Ответ: Около 11 сек
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
BACE(в сумме получается 8, ВА=3+АС=2+СЕ=3)
1. Рисуем сам круг
2.Рисуем в нем круг по меньше
3.Рисуем внутри, двух еще два маленьких круга, расположенных на небольшом расстояние друг от друга.
Вроде все, я тоже в 5 классе))