<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nf(Self:integer):sequence of real; extensionmethod;
begin
var p:=1.0;
for var k:=1 to Self do begin
p:=p*k;
yield k/p
end
end;
begin
var n:=ReadInteger('n=');
n.nf.Sum.Println;
end.
<u>Пример</u>
n= 50
2.71828182845905
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
var
n, i, k, a: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(a);
if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k := k + 1;
end;
writeln(k);
end.
Ответ:
25
Объяснение:
Время на передачу упакованного файла составляет 15 - 5 = 10 секунд.
Неупакованный файл передается за 40 с, т .е. в 40 / 10 = 4 раза быстрее.
Следовательно, объем упакованного файла в 4 раза меньше и составляет 100 / 4 = 25 Мбайт.