Регистрация
нтпрои
12.10.2022 02:45
Информатика
Есть ответ 👍

Pascal. , , исправить ошибку. оптимизировать код и т.п. не прошу, мне только надо заставить этот код работать правильно, все остальное я уже сделаю сама. сама программа должна по заданному числу n находить такие числа a и b, которые в сумме будут давать n и их нод будет максимален. (т.е. их нод будет больше нода в любой другой такой паре). function nod (var a,b: integer): integer; var c: integer; begin repeat if a > b then a: = a mod b else b: = b mod a; until (a = 0) or (b = 0); nod: = a + b; end; var a,a1,a2,max,a3,a4: int64; begin readln(a); a1: = a div 2; a2: = (a div 2)+1; max: =1; if a mod 2 = 0 then writeln (a div 2,' ',a div 2) else while a1> 0 do begin if nod(a1,a2) > max then max: = nod(a1,a2); a1: =a1-1; a2: =a2+1; end; a1: = a div 2; a2: = (a div 2)+1; while a1> 0 do begin if nod(a1,a2) = max then a1: =a3, a2: =a4; a1: =a1-1; a2: =a2+1; end; writeln(a3,' ',a4); end.

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

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

Hikolog
Hikolog
4,7(30 оценок)
Function nod (a,b: integer): integer; begin repeat if a > b then a: = a mod b else b: = b mod a; until (a = 0) or (b = 0); nod: = a + b; end;   var n,max,i: int64;   begin  write('n = '); readln(n); max: =0; if n mod 2 = 0    then max: =n div 2   else for i: =1 to n div 2 do         if nod(i,n-i)> max then max: =i; writeln(max,' ',n-max,' ' ,nod(max,n-max)); end. пример: n = 11111 271 10840 271
маша5002
маша5002
4,4(38 оценок)
Все шампиньоны  — сапротрофы, и произрастают, в основном, на унавоженной почве, на богатом органикой лесном и луговом перегное, встречаются на коре отмерших деревьев и на муравейниках. обычно их используют в кулинарии и они пришли в россию из франции  их ищут на  тренированные собаки или свиньи так как у свиней чувствительность запаха на такие грибы куда лучше чем у кого либо .

Популярно: Информатика