На паскале написать программу сокращения дроби , где n – целое, m – натуральное число. использовать алгоритм евклида. разработать тесты для проверки правильности работы программы.
252
254
Ответы на вопрос:
Var n,m: integer; a,b: integer; begin read(n,m); a : = abs(n); b : = m; while a < > b do if a > b then a : = a - b else b : = b - a; b : = m div a; a : = n div a; writeln(a,'/',b); if a*m = b*n then writeln('correct') end.
Program ex2; uses crt; var a, b, x: real; begin clrsc; write('a='); readln(a); write('b='); readln(b); {алг. евклина для нод} end.
Популярно: Информатика
-
secret66630.01.2023 04:40
-
Maria881208.06.2022 04:55
-
olegykoleg25.03.2022 17:11
-
tatksyushap06w3y09.04.2022 19:56
-
228GGnyb03.04.2023 16:33
-
olya2005i10.01.2021 08:35
-
vikacat1234521.01.2022 02:52
-
ashirova120921.03.2020 03:09
-
kirill1212309.03.2023 23:40
-
sasha2211426.02.2022 12:47