На паскале написать программу сокращения дроби , где N – целое, M – натуральное число.
Использовать алгоритм Евклида. Разработать тесты для проверки правильности работы программы.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Альфида
Пишем программу:
Pascal ABC.
proqram qq;
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.
Программа написана.
Pascal ABC.
proqram qq;
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.
Программа написана.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
