Slovo zapísané odzadu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Obrat_text.pas
Subor exe: Obrat_text.exe

Slovo zapísané odzadu.
{ OBRAT_TEXT.PAS                                 Copyright (c) Pheo }
{ Slovo zapísané odzadu.                                            }
{                                                                   }
{ Datum:15.03.2005                             http://www.trsek.com }
 
program obrat_text;
var v:string;
    n,i:integer;
begin
  writeln('Program obrati text zapisany odzadu.');
  writeln('zadaj text');
  read(v);
  n:=length(v);
 
  for i:=n downto 1 do
      write(v[i]);
 
  writeln; readln;
end.