|
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: 512 (0x200) Types: TextFile Names: »PALINDR.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »PALINDR.PAS«
PROGRAM palindr; TYPE str40 = STRING(.40.); VAR tekst : str40; i : INTEGER; ok : BOOLEAN; BEGIN WRITE(CLRHOM); WRITE('Indtast en tekst: '); READLN(tekst); ok := TRUE; FOR i := 1 TO LEN(tekst) DIV 2 DO IF tekst(.i.) <> tekst(.LEN(tekst) + 1 - i.) THEN ok := FALSE; IF ok THEN WRITELN(tekst, ' er et palindrom') ELSE WRITELN(tekst, ' er ikke et palindrom'); END. «eof»