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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

b[y]:=b[i]
end;
e:=y;
end;{provorot}
Procedure vivod(var f:text);
var
i:integer;
s1,s2,s:string;
begin
for i:=1 to e do
if b[i]<>0 then
begin
str(a[i],s1);
str(b[i],s2);
s:=s1+' '+s2;
writeln(f,s)
end
end;{vivod}
Begin
assign(inp,'input.txt');
reset(inp);
priem(inp);
assign(outp,'output.txt');
rewrite(outp);
d:=0;
repeat
d:=d+1;
osnovnaya;
peredelka;
provorot;
vivod(outp)
until (e=0)or(d>=17);
close(outp);
End.
4. Решение задачи «Лабиринт» (1 тур, основная
номинация), предложенное студентом 3 курса факультета
ПММ ВГУ Выростковым Дмитрием .
{ Первый тур школы - олимпиады,
Секция программирования и информационного моделирования

Страницы