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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

42
readln(n,c);
on:=[];
read(j);
while j<>-1 do
begin
if j mod 3<>1 then
if odd(j) then on:=on+[1]
else on:=on+[2]
else
if odd(j) then on:=on+[3]
else on:=on+[4];
read(j)
end;
off:=[];
read(j);
while j<>-1 do
begin
if j mod 3<1 then
if odd(j) then off:=off+[1]
else off:=off+[2]
else
if odd(j) then off:=off+[3]
else off:=off+[4];
read(j)
end
end;
procedure Solve;
begin
assign(output,'party.out');
rewrite(output);
i:=0;

Страницы