| /programy/pascal/zaklady/stringy.pas |
|---|
| 0,0 → 1,42 |
| program poleprg; |
| uses crt; |
| const |
| size = 5; |
| var |
| i,k, max, min, sum :integer; |
| pole : array [1..size] of integer; |
| matice1 : array [1..size,1..size] of integer; |
| matice2 : array [1..size,1..size] of integer; |
| matice3 : array [1..size,1..size] of integer; |
| prumer : real; |
| ch : char; |
| s : string; |
| begin |
| randomize; |
| clrscr; |
| writeln(Succ('a')); |
| writeln(Pred('a')); |
| writeln(Ord('a')); |
| writeln(Chr(100)); |
| writeln(length(s)); |
| readln(s); |
| for i:=length(s) downto 1 do write('',s[i]); |
| readln; |
| end. |