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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

var
i:byte;
begin
i:=2;
while k>1 do
begin
if k mod i=0 then
if prost(i) then
begin
while k mod i =0 do
begin
k:=k div i;
inc(a[i]);
end;
end;
inc(i);
end;
end;
procedure output(var a:mas;var t:text; n:byte);
var i:byte;
begin
rewrite(t);
write(t,n,'! = ');
for i:=2 to n do
if a[i]<>-1 then
write(t,a[i],' ');
close(t);
end;
begin
assign(t,'input.txt');
input(n,t);
for i:=1 to n do
if prost(i) then

Страницы