НАПИСАТЬ ПРОГРАММУ,КОТОРАЯ ВЫВОДИТ НА ЭКРАН ФРАЗУ:”КАЖДЫЙ ОХОТНИК ЖЕЛАЕТ ЗНАТЬ ,ГДЕ СИДЯТ ФАЗАНЫ” КАЖДОЕ СЛОВО ДОЛЖНО БЫТЬ ВЫВЕДЕНО НАИБОЛЕЕ ПОДХОДЯЩИМИ ЦВЕТАМИ

Вопрос пользователя:

НАПИСАТЬ ПРОГРАММУ,КОТОРАЯ ВЫВОДИТ НА ЭКРАН ФРАЗУ:”КАЖДЫЙ ОХОТНИК ЖЕЛАЕТ ЗНАТЬ ,ГДЕ СИДЯТ ФАЗАНЫ” КАЖДОЕ СЛОВО ДОЛЖНО БЫТЬ ВЫВЕДЕНО НАИБОЛЕЕ ПОДХОДЯЩИМИ ЦВЕТАМИ

Илюха отвечает:

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i:integer;

begin 

clrscr;

textcolor(4);

write(‘ Ka}I{gbIu ‘);

textcolor(12);

write(‘ oxoTHuk ‘);

textcolor(14);

write(‘ }I{eJIaeT ‘);

textcolor(2);

write(‘ 3HaTb ‘);

textcolor(3);

write(‘ rge ‘);

textcolor(1);

write(‘ cug9T ‘);

textcolor(5);

write(‘ fa3aHbI ‘);

readln;

end.

 

ЗЫ: слова я пытался писать английскими буквами, я не знаю просто: поддерживает твой паскаль русские буквы или нет..

Добавить свой ответ