Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.
Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
Дано: I = 1,5 Кб, К = 3072 символа. Найти: N — ? Решение. I= 1,5 Кб = 1,5 • 1024 • 8 = 12 288 бит. I I = I/K = 12288/3072 = 4 бита N=2i = 24 =16 символов
Один эффект (= одному файлу) :
Э = 2*44*1000*16* 10 бит =2* 4*11 * 8*125 * 2*5 =
=11*125*5 *2^7 бит =11*125*5*2^4 байт =110 000 байт
D=4,4 Гбайт =4,4 *2^30 байт =4,4 * 1 073 741 824 =4 724 464 026 байт
K=D/Э =42 946 эффекта (файла) на одном диске.
128000 бит / 8 = 16000 байт / 1024 = 15,625 Кб
500 / 15,625 = 32 сек