ANT• 17.06.06 16:09
А мне понравилось! Вот так вот просто наткнуться на простое - это круто!
Ильязыч• 03.06.06 13:05
Написание программы для решения этой задачи на Паскале у меня заняло три минуты.
Учи программирование.Ответом будет 0.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,k,j,n,s,m:longint;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedite chislo n (Devyat ili menshe razrydov)');
readln(n);
s:=0;
m:=0;
for i:=2 to n-1 do
begin //1
if n mod i = 0 then
begin
m:=m+1;
if m=1 then
writeln('Prostie deliteli chisla n');
k:=0;
for j:=2 to i-1 do
if i mod j =0 then
k:=k+1;
if k=0 then
begin
write(i,' ');
k:=0;
s:=s+1;
end;
end;
end;
writeln;
write('Kolichestvo prostish delitelei=',s);
readln
end.
Постоянный посетитель• 03.06.06 12:38
Для справки: Арола - малолетняя блондинка, лет 18-ти, не обижайте ее.
acheron• 03.06.06 09:19
А что нельзя было сделать, скажем, bs=1000K count=75032 , а затем
bs=1K skip=75032000 ? Или так дольше?
Сижу, тестирую глючный винт.
...
Винт глюканул.
;)))
А знал бы наизусть таблицу простых чисел хотя бы до 8862, мог бы и не спрашивать у гугла ;) Был бы вообще молодец. Ну а в принципе, конечно, вот так наткнуться на простое - это уметь надо ;)