Question

Напиши программу через ABCnet которая выводит слово, а затем выводит его по одному символу в столбец. Буквы, стоящие на чётных местах, должны выводиться красным, а нечётным -синим​

Answer 1

program PrintWord;

uses crt;

var

word: string;

i: integer;

begin

writeln('Введите слово:');

readln(word);

writeln('Ваше слово:', word);

for i := 1 to length(word) do

begin

if i mod 2 = 0 then

textcolor(red)

else

textcolor(blue);

writeln(word[i]);

end;

textcolor(white);

end.