SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var cislo1,cislo2:integer; |
| 1 | + | var |
| 2 | Ret, novyRet: string; | |
| 3 | - | cislo1:= strtoint(edit1.text); |
| 3 | + | i, posun: integer; |
| 4 | - | cislo2:= strtoint(edit2.Text); |
| 4 | + | |
| 5 | - | while cislo1>cislo2 do |
| 5 | + | Ret:= Edit1.Text; |
| 6 | - | cislo1:= cislo1-cislo2; |
| 6 | + | novyRet:= ''; |
| 7 | - | label1.Caption:= inttostr(cislo1); |
| 7 | + | posun := ord('a') - ord('A');
|
| 8 | - | end; |
| 8 | + | for i:=1 to length(Ret) do |
| 9 | - | end. |
| 9 | + | if (Ret[i] >= 'a') and (Ret[i] <= 'z') then |
| 10 | novyRet:= novyRet + chr (ord(Ret[i]) - posun) | |
| 11 | else novyRet:= novyRet + Ret[i]; | |
| 12 | Memo1.Lines.Add (novyRet); | |
| 13 | end; |
