nhập vào 2 phân số, tính tổng và rút gọn kết quả. Mọi người giúp mình với pascal 8
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
NL
Nguyễn Lê Phước Thịnh
CTVHS
7 tháng 11 2021
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
KV
14 tháng 3 2023
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,tu,mau;
//chuongtrinhcon
long long ucln(long long a,long long b)
{
long long uocchunglonnhat;
if (a>b) swap(a,b);
for (long long i=a; i>=1; i--)
if ((a%i==0) and (b%i==0))
{
uocchunglonnhat=i;
break;
}
return(uocchunglonnhat);
}
//chuongtrinhchinh
int main()
{
cin>>a>>b>>c>>d;
tu=a*d+b*c;
mau=b*d;
cout<<tu/ucln(tu,mau)<<"/"<<mau/ucln(tu,mau);
return 0;
}