Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
Считаем количество символом от кавычек до кавычек (их не считаем), включая пробелы между словами
Всего 27. Так как один символ равен 8 битам=одному байту то Ответ 27 байт (или 216 бит)
Арифметика. Надо узнать объем информации в битах и разделить на скорость модема:
258*1024*8/128000 = 16.512≈16.5 сек
Ответ: ≈16.5 сек