Регистрация
kodraemail
15.02.2020 03:00
Информатика
Есть ответ 👍

(1/6×(5-14,09×6,23))'5:11+cos(5/22×10'3)​

104
365
Посмотреть ответы 1

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

Morij007
Morij007
4,8(56 оценок)
Procedure ckr(var m,n: integer); var d: integer; begin if m> n then d: =n else d: =m; while d> 1 do     begin     if (m mod d = 0)and(n mod d = 0) then           begin           m: =m div d;           n: =n div d;           if m> n then d: =n           else d: =m           end;     d: =d-1     end; end; var m,n: integer; begin write('m = '); readln(m); write('n = '); readln(n); ckr(m,n); writeln(m,'/',n); end.

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