Один эффект (= одному файлу) :
Э = 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 эффекта (файла) на одном диске.
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
<span>Program prim;
</span>
<span>var n,i: </span>integer;
<span><span>begin
</span></span>
writeln ('Введите число n', n);
<span>
readln (n);
</span>
<span>for i:=</span>1 to <span>n do write (i);</span>
<span>
end.</span>