Var i,k,n,m: integer; begin write('N = '); readln(n); m:=round(sqrt(n)); i:=2; k:=1; repeat if (n mod i=0) then begin if i<>k then begin write(i,' '); k:=i; end; n:=n div i; m:=round(sqrt(n)); i:=1; end; i:=i+1; until i>m; if k<>n then writeln(n); end.
узнаем сколько всего фоток. Для этого узнаем сколько кб в 2 гбт. 2 гб 1024*1024= 1048576 кб
общее количество фоток равно 1048576/500=2097 шт
обзор одной фотки-4 с (по условию задачи) значит все фотки будут просмотрены в течении 2097*4=8338 сек или 2 часа 33 минуты
ОТВЕТ: около 2ч 33м
begin
write('N = '); readln(n);
m:=round(sqrt(n));
i:=2; k:=1;
repeat
if (n mod i=0) then
begin
if i<>k then
begin
write(i,' ');
k:=i;
end;
n:=n div i;
m:=round(sqrt(n));
i:=1;
end;
i:=i+1;
until i>m;
if k<>n then writeln(n);
end.
N = 43021568
2 163 1031
N = 625
5
N = 189756328
2 67 354023