Prosím pooc. – Pascal – Fórum – Programujte.com

Na?iel som si na nete tak? pr?klad,s ktor?m neviem pohnu?,pros?m pomoc.
M?te re?azec r(typu string),ktor? tento program?k oto??.T.J: r je "pomoc" a vznikne "comop".
Pros?m pora?te.:)

Napriklad takto:

uses crt;

var retazec:string;

    dlzka:integer;

begin

clrscr;

writeln('Zadajte retazec: ');

readln(retazec);

dlzka:=length(retazec);

while(dlzka<>0) do

begin

write(retazec[dlzka]);

dec(dlzka);

end;

readkey;

end.

d3nt0 píše:#
# Na?iel som si na nete tak? pr?klad,s ktor?m neviem pohnu?,pros?m pomoc.#
#M?te re?azec r(typu string),ktor? tento program?k oto??.T.J: r je "pomoc" a vznikne "comop".#
#Pros?m pora?te.:)

anebo takhle:

var retezec,prevrat:string;

     i:integer;

begin

writeln('Zadej retezec:');

Readln(retezec);

prevrat:='';

for i:=Length(retezec) downto 1 do Prevrat:=Prevrat+retezec[i];

writeln(prevrat);

readln;

end.