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
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;
}