Аудио передача, видео передача, фотопередача и текстовая.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln('Вводите a1, a2, ...: ');
Writeln(sqrt(ReadSeqReal(n).Select(x->x*x).Sum))
end.
<u>Пример</u>
n= 4
Вводите a1, a2, ...:
3 2.5 6.1 -5.2
8.9162772500635
<span>program delehka(input,output);
var
a:Array[1..1000010] of longint;
i,n,s,ma,mi,sl:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
mi:=(1 shl 30);
ma:=-(1 shl 30);
for i:=1 to n do
begin
read(a[i]);
ma:=max(ma,a[i]);
mi:=min(mi,a[i]);
end;
if ma=mi then write(0,'',n,'',0)
else
begin
for i:=1 to n do
begin
if a[i]=ma then s:=s+1;
if a[i]=mi then sl:=sl+1;
end;
writeln(s,' ',sl,' ',n-s-sl);
close(input);
close(output);
end;
end.</span>
Sfc
sfc хорошист
2012-05-29T19:56:16+04:00
20*32*16 = 10240 (количество символов в статье)
каждый символ кодируется 16-ю битами,
10240 * 16 = 163840 бит.
можно перевести в килобайты.
163840 бит/8 = 20480 байт
20480/1024 = 20 кб.
Ответ: 20 килобайт.
#include <iostream>#include <iterator>#include <algorithm>#include <vector>#include <string>#include <numeric>
int main(void){ std::cout << std::accumulate(std::istream_iterator< int >(std::cin), std::istream_iterator< int >(), 0); return 0;}
