procedure sorts(var ars:tys;n1:integer); Var i,j:integer; c:string; begin for i:=1 to n1-1 do for j:=i to n1 do if ars[i]>ars[j] then begin c:=ars[i]; ars[i]:=ars[j]; ars[j]:=c; end; end; begin readln(s); j:=1; while pos(' ',s)<>0 do begin for i:=1 to pos(' ',s) do ars[j]:=ars[j]+s[i]; delete(s,1,pos(' ',s)); inc(j); end; ars[j]:=s; sorts(ars,j+1); writeln('Result='); for i:=1 to n do writeln(ars[i]); end.
Var a,b,c,d:integer; begin read(a,b); c:=a; d:=b; while (a<>0) and (b<>0) do if a>b then a:=a mod b else b:=b mod a; writeln(c div (a+b)); writeln('---'); writeln(d div (a+b)); end.
//А теперь программа для тестов, выведет 1000 результатов в файл
Var a,b,c,d,i:integer; f:text; begin assign(f,'text.txt'); rewrite(f); for i:=1 to 1000 do begin; a:=random(1,100); b:=random(1,100); c:=a; d:=b; while (a<>0) and (b<>0) do if a>b then a:=a mod b else b:=b mod a; writeln(f,c,' ',c div (a+b)); writeln(f,'=':length(inttostr(c))); writeln(f,d,' ',d div (a+b)); writeln(f); end; close(f); end.
