Помогите Turbo Pascal

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.

Question

Информатика

Павлин

25 сентября, 08:06

Помогите Turbo Pascal

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.

+5

Ответы (1)

Знаете ответ?

Христинья · Answer 1

Uses crt;

var

i, a:integer;

begin

for i:=1 to 16 do

begin

textcolor (i) ;

a:=random (50) ;

write (a) ;

sound (I*100) ;

delay (5000) ;

nosound;

end;

readkey;

end.

Помогите Turbo PascalВыведите на экран 16 случайных чисел 16-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.

Помогите Turbo Pascal

Выведите на экран 16 случайных чисел 16-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.