Помогите Turbo Pascal

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

Question

Информатика

Наталия

29 апреля, 02:28

Помогите Turbo Pascal

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

+1

Ответы (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-ю разными цветами на черный экран, сопровождая вывод каждого цвета звуком.