Var a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' '); b := 1; write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;<span>end.</span>
Var
i, k: integer;
begin
k := 0;
for i := 297 downto 230 do
if i mod 4 = 0 then
begin
write(i, ' ');
k := k + 1;
end;
writeln(#13+'Количество = ', k);
end.
Задача 1.
Общее количество символов: 50*85*15= 63750
Один символ кодируется 8 битами или 1 байтом, следовательно объем текста = 63750 байт = 62,26 Кбайт
Задача 2.
Количество символов на странице: 60*64 = 3840
Разделив объем текста (в байтах) на количество символов на странице получим количество страниц: (9*1024)/3840 = 2,4
Следовательно ответ: 3 страницы
Задача 3.
Время передачи файла можно определить разделив объем файла( переведя в биты) на скорость передачи
t= (9*1024*8)/256 = 288 сек.
Задача 4.
В тексте содержится 51 символ, на каждый символ приходится 1 байт, следовательно фраза содержит 51 байт информации.
16000 Герц * 8 бит * 2 канала * 10 сек = 2560000 бит
2560000 бит / 8 =320000 байт
320000 байт / 1024 = 312,5 Кбайт