SHOW:
|
|
- or go back to the newest paste.
| 1 | - | var zaciatok,pismena,i:integer; |
| 1 | + | var a,b:integer; |
| 2 | - | retazec, novy:string; |
| 2 | + | |
| 3 | a:= strtoint(edit1.Text); | |
| 4 | - | retazec:= edit1.Text; |
| 4 | + | b:= strtoint(edit2.Text); |
| 5 | - | zaciatok:= strtoint(inputbox('zadaj','z ktoreho ma zacat',''));
|
| 5 | + | repeat |
| 6 | - | pismena:= strtoint(inputbox('zadaj','kolko pismen',''));
|
| 6 | + | if a>b then a:= a-b; |
| 7 | - | novy:= ''; |
| 7 | + | if a<b then b:= b-a; |
| 8 | - | for i:=zaciatok to (zaciatok + pismena -1) do |
| 8 | + | until a=b; |
| 9 | label1.Caption:= inttostr (a); | |
| 10 | - | novy:= novy + retazec[i]; |
| 10 | + | |
| 11 | - | memo1.Lines.add (novy); |
| 11 | + | |
| 12 | end. |
