Question

Viết công thức giải phương trình nhập vào 2 số nguyên , tính tổng và tích 2 số đó và kiểm tra xem tổng và tích có chia hết cho 5 và 9 không

Answer 1

var a,b,s,p:integer;beginwrite('a=');readln(a);write('b=');readln(b);s:=a+b;p:=a*b;writeln(' Tong la: ',s);writeln(' Tich la: ',p);if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')else writeln(' Tong k chia het cho 5 va 9 ');if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')else writeln(' Tich k chia het cho 5 va 9');readln;end.

Answer 2

var a,b,s,p:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

s:=a+b;

p:=a*b;

writeln(' Tong la: ',s);

writeln(' Tich la: ',p);

if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')

else writeln(' Tong k chia het cho 5 va 9 ');

if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')

else writeln(' Tich k chia het cho 5 va 9');

readln;

end.