Oue: buauw a oelaut do ount the mo.
YO wels and
lonAonat n n the tened
CStot)
pont vow, Conon Stoþ
St[i]='o' or duie
t i ] i or tuCi]= 'I' F
wtn Ci]='o'or
T T
YoN= VON+I Con Con +\
Ouea: auy & onehat do chek chanatu a dtting
uohethen i aptal ae, matl casc igit OH
Stat
Stop
T
and rti s'2 Pint "apilad ltiui
yBuit mall tatu"
Apial Symbela
( SHat
/Readsr
Xstrli] t'\oeit str
Sto
Sr [iT A
and stii]
'2'
sty(i','a
and tli]
Styli? Str (i-32
ue) Dau) a owchaut o
Stat)
Read t (J/
len = my- strlen (st)
Pint den
Stop
my- strlen lStr[J) )
StY[i]
'\o'
T
(Stat)
Readmamell
Stop
my- streoy(eopy3,ama])
Xmame[]1o'
Copy fi3= mameli]
(tn
Stat
Read styC1/
y-stYYU (st), |
Peüt str [ J /
Stop
(my- strreu (strt3))
temp= tu Ci)
Hedn
londhaut to tomqoxe ubing
Staut
Peint "eaya Strivy
stxCa(s1D,s ) )
Hetuno
F
Staut
Read sit3, sa(3/
Stye af (Siy s)
Pint S1
Stop
my- strCat (si[,S]))
LuE Stylen (si)
Sali310
Utaxt
C0 ywid "ct inlindwrme
/Pasd "Palindve mu
m strepu (shva{3 d ) stíjltemp
strii]= setn
mg-sthenp (shl[), str2i) )
li-o
Q wACP to opy Shig wing poinky ahed Functisn
START
RearlStr 11)
| myst y(str 2, st1)
þrint Str2 []
STO P
Mystrcpy (**Þ)
0=0
*(p1i))=(o' F i ) o
Retun
izitl
-1)
Punhion *(pi)
>*(yi){Rekun
1 (qy+i)Re
j*s)
andl
(*p ='1o'
*(ayi))
*(pi)=%o0'
þoity <*
Stromp *pi)
OR
wsing My
string Caual
Not
2 Cmyscmp
(strl
,str2)
"
Eaualrint
compane 2L]
L],st
to START
str1 C=0
STOP
WAC Read
Print
)
Coucatto usicg fot udensadut.
uad sL 1/
toasd S2J
(Stob)
(b+sti) - \0'