<u>ответ:треугольник и прямоугольник</u>
Скачайте антивирус или к мастеру или!
1)джостик,2)графопостроитель,3)процесор,4)наушники,5)центральный процесор,6)акустические колонки,7)карта расширения,8)Delete,9)лазерный принтер.
var
i: Integer;
Af: array [1..10] of Integer;
begin
Af [1] := 1; // первый член ряда равен 1
Af [2] := 1; // второй член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме двух предыдущих
end;
for i := 1 to 10 do begin // вывод на экран первых 10 членов ряда
Write (Af [i], ', ');
end;
end.
// ------ 2-й вариант (без использования массива) ---------
var
a, b, c, i: Integer;
begin
a := 1;
Write (a, ', ');
b := 1;
Write (b, ', ');
for i := 3 to 10 do begin
c := a + b;
Write (c, ', ');
a := b;
b := c;
end;
end.
N=2^i
N=16=2^4=>i=4бита информационный объем 1 символа
Всего символов n=90=>
I=n*i= 90*4=360 бит инф.объем всего сообщения
1 байт=8 бит=>
360:8=45 байт
Ответ: 45 байт