Maaklanu
4 год назад
Хочу,чтобы зелёный,жёлтый красный повторилось 20 раз,но почему-то не получается.В чём проблема?___________________________________________________________________uses crt;vara,b,c,d:LongInt;beginfor b:=1 to 20 do;begintextcolor(green);for b:=1 to 200000 dobeginrandomize;a:=random (50000);write(a);end;for b:=1 to 200000 dobegintextcolor(yellow);c:=random (50000);write(c)end;for b:=1 to 200000 dobegintextcolor(red);d:=random (50000);write(d)end;end;end.__________________________________________________________________
ОТВЕТЫ
Dafinka
Oct 24, 2020
после do точку с запятой ставить не надо
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.
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.
545
Смежные вопросы:
