2
8
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program BTT;
Uses crt;
Var a,b: longint;
Function TongUTS(a:longint):longint;
Var t,i: longint;
Begin
t:=0;
For i:=2 to a div 2 do
If a mod i = 0 then t:=t+i;
TongUTS:=t;
End;
Begin
Clrscr;
Write('Nhap 2 so bat ki: '); Readln(a,b);
If TongUTS(a)=TongUTS(b) then Write('La hai so anh em')
Else Write('Khong phai hai so anh em');
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
5251
3315
uses crt ;
var a,b : longint ;
kt : string ;
function USC(a:longint):longint;
var t,i : longint;
begin
t :=0 ;
for i:=2 to a div 2 do
if a mod i =0 then t := t + i ;
USC := t ;
end ;
begin
clrscr;
write('nhap a:');
readln(a);
write('nhap b: ');
readln(b);
if USC(a)=USC(b) then kt :='LA HAI SO ANH EM'
else kt := 'kHONG LA HAI SO ANH EM';
Writeln(kt);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1742
26923
1300
Cho em câu trả lời hay nhất nha <3