Хочу,чтобы зелёный,жёлтый красный повторилось 20 раз,но почему-то не получается.В чём проблема?
___________________________________________________________________
uses crt;
var
a,b,c,d:LongInt;
begin
for b:=1 to 20 do;
begin
textcolor(green);
for b:=1 to 200000 do
begin
randomize;
a:=random (50000);
write(a);
end;
for b:=1 to 200000 do
begin
textcolor(yellow);
c:=random (50000);
write(c)
end;
for b:=1 to 200000 do
begin
textcolor(red);
d:=random (50000);
write(d)
end;
end;
end.
__________________________________________________________________
2 комментария:
Не понял,Вам нужно,что бы каждым цветом повторилось по 20 раз?Или в сумме 20?
Боже, какая бредятина написана в программе...
Не понял,Вам нужно,что бы каждым цветом повторилось по 20 раз?Или в сумме 20?
Боже, какая бредятина написана в программе... Ответы
Похожие вопросы
Информатика
Срочно нужно решить, спасибо)...
Информатика
Помогите пж, очень срочно нужно, спасибо)...
Список предметов
