Задача такова. Нам дана программа, которая написана ** Pascal ABC Net: uses Crt; var...

Question

Задача такова. Нам дана программа, которая написана на Pascal ABC Net:

uses Crt;
var c:=random(1,16);
begin
TextColor(Green);
writeln('EASYMONEY 1.1');
TextColor(White);
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
readln;
end.

Необходимо дополнить её, так чтобы при нажатии на клавишу повторялся каждый раз цикл:

case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;

Comments

Какую клавишу требуется нажимать?

Answer 1

uses Crt;
var c,r:integer;
begin
TextColor(Green);
writeln('EASYMONEY 1.1');
TextColor(White);
repeat
c:=random(16)+1;
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
writeln('Повторить? 1-Да, 0-Нет');
readln(r);
until r=0;
readln;
end.

Comments

Спасибо, Уважаю!!! Реально помогаете последнее время!!!

---

Пожалуйста.