Writeln('n ni kiriting')

6. 
   
   

uses crt;

var n, i :integer;

begin

writeln('n ni kiriting');

readln(n);

for i:= 1 to trunc(sqrt(n)) do write(i, ' ');

readln;

end.

7. uses crt;

var a,b,m,k:real;

i:integer;

begin

writeln('A B M ni kiriting:');

readln(a,b,m);

k:=b;

while(b < a) do begin

i:=i+1;

b:=b*(1+m/100);

end;

writeln('kapitalizatsiyani hisobga olgan holda ',i, ' yil.');

writeln('kapitalizatsiyani hisobga olmagan holda esa ', (a/b-1)*100/m);

readln;

end.

8. 
   uses crt;
   
9. 
   var s:string;
   
10. 
    a:array[1..123456] of integer;
    
11. 
    i,j,k,c:integer;
    
12. 
    begin
    
13. 
    
    
14. 
    writeln('satrni kiriting:');
    
15. 
    readln(s);
    
16. 
    for i:= 1 to length(s) do begin
    
17. 
    val(s[i],k);
    
18. 
    a[i] := k;
    
19. 
    end;
    
20. 
    for i:=1 to length(s) do
    
21. 
    for j:=i+1 to length(s) do
    
22. 
    if(a[i]
23. 
    c := a[i];
    
24. 
    a[i] := a[j];
    
25. 
    a[j] := c;
    
26. 
    end;
    
27. 
    writeln('natija:');
    
28. 
    for i:= 1 to length(s) do write(a[i]);
    
29. 
    readln;
    
30. 
    
    
31. 
    end.