Флеш-накопитель<span> </span><span>компакт-диск </span>жесткий диск
Таких можно написать очень много 4224 , 1221 ,2112, 3443, 4334
<em>VAR</em>
<em> ans: Real;</em>
<em> n, i: Integer;</em>
<em>BEGIN </em>
<em> Read(n);</em>
<em> </em>
<em> For i := 1 to n do </em>
<em> ans := ans + (1 / Sqr(i));</em>
<em> </em>
<em> Write(ans);</em>
<em>END.</em>
program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
Количество пролётов будет равно L/(кв.корень из (2))/M.