Такова. нам дана программа, которая написана на 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;
novakk020
2
19.09.2019 13:00
2
Другие вопросы по теме Информатика
ЖибекСуонн3
02.03.2019 03:20
Lenechka20
02.03.2019 03:30
5five3353
10.09.2019 10:00
jixecizagjixeci
19.05.2019 19:22
бсьсьсьсаьпбкд
19.05.2019 19:24
AngelinaMois
17.05.2021 21:47
Популярные вопросы
- Задать вапроса 2-4 к стиху чудный грат порой сольётся...
2 - Найдите количество треугольников с целыми сторонами, наибольшая из которых...
3 - Участок огорода размером 5 целых 2 х 6,5 м засажу зеленью что составляет...
3 - Уалёши было 1500р. он купил 26 батареек по 43р., а затем вернул в магазин...
2 - Cпиши. укажи падеж имён прилагательных. поехал на дальнее озеро. сидел...
2 - Что такое слово have got two legs что означает...
3 - Ядро изотора полония 209 al 84 потерпело электронный бета-распад.определить...
2 - Просклоняй имена существитеэльные укажи окончание трава кольцо жизнь орлы...
2 - Представь в виде произведения 1−x^18v^6...
2 - Полный анализ стихотворения лермонтов ангел...
3
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.