Регистрация
azharik2k17
07.09.2021 01:38
Информатика
Есть ответ 👍

Вычислить значение функции в паскале

278
392
Посмотреть ответы 1

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

ляляляяяяяя
ляляляяяяяя
4,5(81 оценок)
Var n,m,q,i: integer; f: boolean; begin read(m,n); f: =true; while f=true do begin f: =false; if m> n then q: =n else q: =m; for i: =2 to q do begin if (m mod i = 0) and (n mod i = 0) then begin m: =m div i; n: =n div i; f: =true; end; end; end; writeln(m,'/',n); end. по идее так, не проверял.

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