1000 кб=1*10³кб=1024000байт
ответ б
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
1 постелить клеёнку
2намочить кисти ипоставить в стакан
3 достать краски и поставить
4 открыть краски
5 достать альбом
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(5).Aggregate(1.0,(a,b)->a*b).Println
end.
<u>Пример</u>
35.3 173.2 0.15 -2.62 7
-16819.50396