Задача 1. Алгоритм реализован для графического режима TurboPascal, так как версия компилятора нигде не оговаривалась
Код:
uses crt, graph;
var gd,gm,ch:integer;
s:string;
begin
randomize;
initgraph(gd,gm,'c:\tp7\bgi');
cleardevice;
repeat
ch:=random(10);
str(ch,s);
setcolor(random(16));
sound(random(10)*20+100);
outtextxy(random(630)+5,random(450)+10, s);
delay(200);
nosound;
until keypressed;
s:=readkey;
end.
При выполнении программы на экран выводится случайная цифра от 0 до 9 случайным цветом от 0 до 15 в случайной координате экрана. Выход из программы осуществляется после нажатия любой клавиши.