Впаскале написать программу: ) найти сумму чётных чисел от 2 до 21 нужно три способа зарание : )

1способ type     massiv = array [2..21] of integer; var       mass : massiv;       i, summa : integer;   begin     summa : = 0;     for i: =2 to 21 do               begin                     mass[i]: =i;                     if (mass[i] mod 2 = 0) then                           summa : = summa + mass[i]               end;     writeln('сумма четных эл-тов равна : ', summa);     readln; end. 2 способ program z; var               a : array[2..21] of integer;               i,summ : integer;               b : array[2..21] of integer; begin               for i: = 2 to 21 do               begin                 a[i]: =i;               end;               for i: =2 to 21 do                   begin                   if a[i] mod 2 = 0 then                               begin                                   b[i]: =a[i];                               end;                   end;               summ: =0;               for i: =2 to 21 do               begin                 summ: =summ+b[i];               end;               writeln(summ);               readln; end.

60*30=1800 байт на 1 странице 1800*100=180000 байт на 100 страницах переводим байты в биты. 180000*8=1440000 бит на 100 страницах и 1 байт=8 битам и вычеслям за сколько секунд данная информация отправится с такой скоростью которая данна в условии 1440000: 28800=50 сек. ответ: 100 страниц текста со скоростью 28800 бит/с передадутся зо 50 секунд.