Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
JONES
Uses sysutils; Procedure TestIt (S1,S2 : String); Var R : Longint; begin R:=AnsiCompareText(S1,S2); Write ('"',S1,'" is '); If R<0 then write ('less than ') else If R=0 then Write ('equal to ') else Write ('larger than '); Writeln ('"',S2,'"'); end; Begin Testit('One string','One smaller string'); Testit('One string','one string'); Testit('One string','One string'); Testit('One string','One tall string'); End.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
перевод 16-ричного числа в 10-чное
Определение типа треугольника по трём сторонам
zadacha5
Huong11a2@
Blanko char
nomer3
2
Menukar nilai1
Tri 1.0
Heron Equationヘロンの公式
Please log in to post a comment.