Пояснить алгоритм программы.

@barc · Регистрация: 27.04.2010

Author24 — интернет-сервис помощи студентам

Pascal

program ku;
var  s,m,p,n,a:integer;
begin
read (a);
for n:=1 to a do 
begin
p:=1
for m:=1 to n do
if n mod m=0;
then p:=p*m;
if p=n then
s:=s+n;
end.
writeln (s)
end.

@Inadequate · 18.05.2010, 17:28

А она вообще работает ?

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 17:28	2
	А она вообще работает ? 0