Question

Witam

potrzebuję program w pascalu

który bedzie wyświetlał imie i nazwisko osoby [co 2 litera } innym kolorem.

Prosze o pomoc daje. naaaj ;*

Answer 1

program nazwa;
uses crt;
var
        podaj:string;
        x:integer;

begin
clrscr;
       writeln('Podaj imie i nazwisko: ');
       readln(podaj);

       for x:=1 to length(podaj) do
       begin
        if ((x mod 2) <> 0) then
                textcolor(x);
                write(podaj[x]);
       end;
readln;
end.