Написать программу,которая выводит на экран фразу: "каждый охотник желает знать ,где сидят фазаны" каждое слово должно быть выведено наиболее подходящими цветами
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст
вот она
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.
ЗЫ: слова я пытался писать английскими буквами, я не знаю просто: поддерживает твой паскаль русские буквы или нет..