Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
var
mas:array[1..20]of integer;
i:integer;
//s,s1:integer;
begin
writeln('Элементы массива:');
for i:=2 to 20 do
begin
mas[i]:=2*i+5;
write(' ',mas[i]);
end;
writeln();
write('Первый элемент массива: ',mas[1]+#10+'Пятый элемент массива: ',mas[5]+#10+'Десятый элемент массива: ',mas[10]);
end.
вот полное решение данной , спрашиваемой вами задачи
Способ без использования архиватора:
t = I / v
t = (80 * 2^23) / 2^22 = 160 с
Способ с использованием архиватора:
Найдём 70 процентов от исходника.
0.7 * 80 * 2^23 = 56 * 2^23
(56 * 2^23) / 2^22 = 112с
На сжатие требуется 23 секунды, на распаковку еще 12, 122 + 23 + 12 = 147
Ответ: А147
Лпнрэяуёс, нпокупс, лмбгкбуфсб, локдб, вфнбдб, рбрксфт, рскоуёс, уёусбеэ, сбекп, бмхбгку, вфлгб, иобл.