Ввести натуральное число n и вывести значение числа n\1, выделив период дроби. например: 1\2=0.5 или 1\7=0,(142857) решение на языке pascal.

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! function cyclefraction(n: integer): string; begin   if n=1 then begin result: ='1'; exit end;   var ost: =new sortedlist< integer,integer> ;   var res: =new list< integer> ;   ost.add(1,1);   var a: =1;   var k: =1;   while true do begin       a*=10;       var r: =a div n;       res.add(r);       a: =a mod n;       if ost.containskey(a) then begin           var p: =ost.get(a);           result: =res.joinintostring('');           result: ='0.'+result? [: p]+(a< > 0? '('+result? [p: ]+')': ''.tostring);           exit           end       else begin           k+=1;           ost.add(a,k);           end       end end; begin   var n: =readinteger('n=');   writeln('1/',n,' = ',cyclefraction(n)) end. примеры n= 2 1/2 = 0.5 n= 7 1/7 = 0.(142857)   n= 28 1/28 = 0.03(571428) n= 118 1/118 = 0.0(0847457627118644067796610169491525423728813559322033898305)

Объяснение:

Правильная запись формулы которая вычисляет среднее арифметическое в двух ячейках A1 и A10

=СРЗНАЧ(A1;A10)