Вопрос по информатике:
Хочу,чтобы зелёный,жёлтый красный повторилось 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.
__________________________________________________________________
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.07.2016 23:32
- Информатика
- remove_red_eye 9621
- thumb_up 9
Ответы и объяснения 1
uses crt;
var
i, j: integer;
begin
randomize;
for i := 1 to 20 do
begin
writeln(i);
textcolor(green);
for j := 1 to 20 do
write(random(50000));
textcolor(yellow);
for j := 1 to 20 do
write(random(50000));
textcolor(red);
for j := 1 to 20 do
write(random(50000));
end;
end.
- 26.07.2016 04:05
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.