/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. |