Составьте алгоритм на алгоритмическом языке и блок схему

7,6 Кбайт/сек

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

V = q * t  , где

V - объем переданной информации

q  - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)

t - время передачи

Дано:

N = 8192

K = 800 х 600 = 480 000

t = 100 секунд

Найти:

q

N = 2^i

2^i = 8192

i = 13 бит (найдено подбором степени)

V = K * i

V = 480 000 * 13 = 6 240 000 бит

V = q * t

q = V / t

q = 6 240 000 / 100 = 62 400 бит/сек

q = 6 240 000 / 100 = 62 400 бит/сек = 62 400 / 8 = 7 800 байт/сек = 7,6171875 Кбайт/сек ≈ 7,6 Кбайт/сек

//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366