Создайте программу, которая выводит на экран последовательность пар чисел каждый раз отличительным цветом, выбранным случайным образом. заранее большое !

valerya7000 valerya7000    3   21.05.2019 13:00    1

Ответы
bamnames bamnames  15.06.2020 21:21

Вот цыкл
repeat
TextColor(Random(10)+3);
TextBackground(Random(14)+1);
GotoXY(1, 1);
writeln('Hello');
Delay(10000);
until Keypressed;
Readkey;

ПОКАЗАТЬ ОТВЕТЫ
kudzhan kudzhan  15.06.2020 21:21

Не совсем понятно, что имелось ввиду под последовательностью пар чисел, но в остальном получилось так:

 

uses crt;
var
i,a,b,n:integer;
begin
Randomize;
textcolor(15);
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Сколько раз вывести на экран? - ');
readln(n);
for i:= 1 to n do
begin
     textcolor(random(16));
     writeln(a,' ',b);
end;
textcolor(15);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика