Регистрация
sambovladikvladik
20.06.2022 05:36
Информатика
Есть ответ 👍

Напишите письмо другу о том как прочитать данные из файла

133
154
Посмотреть ответы 1

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

tysa133
tysa133
4,6(58 оценок)
Function gcd(a,b: longint): longint; { нахождение нод } var   i: longint; begin   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   gcd : = a end; function lcm(a,b: longint): longint; { нахождение нок } begin   lcm: =a*b div gcd(a,b) end; begin   writeln('нод(36; 54; 18; 15)=',lcm(36,lcm(54,lcm(18, end. результат выполнения программы: нод(36; 54; 18; 15)=540

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