Răspuns:
program Suma_fractiilor;
{se calculeaza suma a/b + b/c }
var a,b,c,d,cmmmc:integer;
begin
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
write('d='); read(d);
write(a,' / ',b,' + ',c,' / ',d,' = ');
cmmmc:=b;
while (cmmmc mod d <> 0) do
begin inc(cmmmc, b); end;
a:=a*(cmmmc div b); c:=c*(cmmmc div d);
writeln(a+c,' / ',cmmmc);
end.
Explicație:
am realizat determinarea numitorului comun a fracțiilor și adunarea lor, fără a simplifica rezultatul...
Dacă insiști la simplificare, vedem cum facem...
Succese!