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

UptoLike

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

Рубрика:

курса факультета ПММ ВГУ Шалиткиным Андреем

Владимировичем .

{ Множетели и факториалы }

program mnog;

type mas=array[1..100] of integer;

var

t:text;

n,i:byte;

a:mas;

procedure input(var n:byte;var t:text);

begin

reset(t);

read(t,n);

close(t);

end;

function prost(k:byte):boolean;

var

i:byte;

t:boolean;

begin

i:=2;

t:=true;

while (i<k)and t do

begin

if k mod i=0 then

t:=false;

inc(i);

end;

prost:=t;

end;

procedure razprost(var a:mas;k:byte);