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)

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)

Đề bài: 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) <Hai số được nhập vào từ bàn phím>

Lời giả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.