|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 384 (0x180) Types: TextFile Names: »BAGFRA.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »BAGFRA.PAS«
PROGRAM bagfra; TYPE str30 = STRING(.30.); VAR s1, s2 : str30; i : INTEGER; BEGIN WRITE(CLRHOM, 'Indtast en tekst: '); BUFLEN := 30; READLN(s1); s2 := ''; FOR i := LEN(s1) DOWNTO 1 DO s2 := s2 + s1(.i.); WRITELN('FORFRA: ', s1); WRITELN('BAGFRA: ', s2); END. «eof»