Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 53 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

a[i]:=0
else
a[i]:=-1;
for i:=2 to n do
razprost(a,i);
assign(t,'ouput.txt');
output(a,t,n);
end.
Другой вариант решения этой же задачи , предложенный
студентом 1 курса факультета компьютерных наук ВГУ
Соломатиным Алексеем .
{Solomatin A.; VSU.FCS; task2; "Множители и факториалы "}
{$M 60000,0,655360}
const nmax=150;
var mas: array[1..nmax] of longint;
n: integer;
procedure Init;
begin
assign(input, 'input.txt');
reset(input);
read(n);
close(input);
end;
procedure Solve;
var i, x, j: integer;
begin
for i:=2 to n do
begin
x:=i;
for j:=2 to x do
begin
while x mod j=0 do
begin
x:=x div j;
inc(mas[j]);

Страницы