Помогите Turbo Pascal

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

Question

Информатика

Геннадьич

7 января, 11:05

Помогите Turbo Pascal

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

+2

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