Составьте программу определяющую являеться ли дробь a/b сократимой

Ответы (1)

Вугар 14.05.2025 1

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
i: longint;
begin
while b 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
Result:=a
end;

begin
var a:=ReadInteger('a=');
var b:=ReadInteger('b=');
var nod:=gcd(a,b);
if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: