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

August 2021 0 16 Report

Задача такова. Нам дана программа, которая написана на 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;

reshite zadachu po geometrii pozhalujsta dayu 100 ballov45cbee5757fd4a97e9f69e81727be660 11936

najdite vse necelye chisla xyz takie chto xy5xyxz6xzyz7yz

nam dano 16 chisel 12345678910111213141516 v mnozhestvo krasnye

izvestno chto 2ltylt7 vyberite vyrazheniya prinimayushie polozhitelnye znachen

reshite pozhalujsta kakuyu nibud iz zadach 1 v laboratorii dlya polucheniya vodoroda

kakie veshestva mogut obrazovyvatsya v pecheni

reshite pozhalujsta chto nibud iz etih nomerov

massovaya dolya fruktovogo sahara v yablokah ravna 10 do kakoj massy neobhodimo u

reshit pozhalujsta iz kartochki nachinaya s 9 po 12 zadachi vklyuchitelno v otvete d

kak najti koordinaty vershiny paraboly yx27 dam 100 ballov za podrobnoe ob

Helpful Links

Helpful Social