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

UptoLike

Repeat
i:=i+1;
if i mod 10000 = 0 then begin j:=j+1;
if j mod 2 = 0 then textcolor(white) else textcolor(darkgray);
i:=1; end;
GotoXy(8,25);write('any key');
Until keypressed;
ReadKey; {нажимаем any key для выхода}
End.
Авторы : доц. О .Ф .Ускова,
доц. О .Д .Горбенко,
проф. А.И.Шашкин
Редактор Л .А.Андрейчикова
Олимпиадные задачи по программированию. Лучшие решения. В трех частях.
Часть 2.: Учебное издание/ О .Ф .Ускова, О .Д .Горбенко, А.И.Шашкин Воронеж: ООО
ПФ «Джуди», 2001 64 с.
Отпечатано в ООО ПФ «Джуди», тираж. 200 экз.