Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết

Câu 8: Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết)

Trả lời

uses crt;

var a, b, s1, s2, i : integer;

begin

clrscr;

s1 := 0; s2 := 0;

write('nhap hai so : '); readln(a, b);

for i := 1 to a - 1 do 

if a mod i = 0 then s1 := s1 + i;

for i := 1 to b - 1 do 

if b mod i = 0 then s2 := s2 + i;

if (s2 = a) and (s1 = b) then

writeln(a,' va ', b ,' la hai so than thiet')

else writeln(a,' va ', b ,' khong la hai so than thiet');

readln

end.