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

200

214

Посмотреть ответы 2

Ответы на вопрос:

Ramil2425

Информатика

4,4(66 оценок)

// 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)