Вопрос Создать программу по турбопаскаль вывести ответ желтым цветом даны три A,B,C числа найти максимально

Регистрация
14 Сен 2013
Сообщения
80
Репутация
0
Спасибо
0
Монет
0
Создать программу по турбопаскаль вывести ответ желтым цветом даны три A,B,C числа найти максимальное
 
примени эту программу {êîòîðàÿ âûâîäèò íà ýêðàí ïîñëåäîâàòåëüíîñòü ïàð ÷èñåë êàæäûé ðàç îòëè÷èòåëüíûì öâåòîì, âûáðàííûì ñëó÷àéíûì Black=0; Blue=1; Green=2; Cyan=3; Red=4; Magenta=5; Brown=6; LightGray=7; DarkGray=8; LightBlue=9; LightGreen=10; LightCyan=11; LightRed=12; LightMagenta=13; Yellow=14; White=15; } Program R; uses Crt ; var i,a:integer; begin randomize; for i:=1 to 4 do begin textcolor (random(14)+1); gotoxy (1,i); writeln(random(2)+1); end; for a:=4 downto 1 do begin textcolor (random(14)+1); gotoxy (5,a); writeln(random(3)+1); end; Readln; end.
 
«Кот ученый!» - который тебе написал, это бывший ник «Романа Максимова» - -вчера еще был "Зотиков", который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! ныкается как крыса под разными именами)) Сидит на даче безработный старпёр С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова-Леоновой – есть еще страницы - ИХ УЖЕ ЗАБЛОКИРОВАЛИ ЗА МОШЕННИЧЕСТВО - он с трёх страниц кидает одновременно!!! Имя сменил только. Может написать и с другой почты - будьте осторожны!!!!
 

Похожие темы

Назад
Сверху