Question

viết chương trình hoàn chỉnh sử dụng câu lệnh điều kiện thực hiện nhập từ bàn phím giá trị của biến nguyên a và in ra thông báo xem a có phải là bội của 3 hay không

Answer 1

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 3=0 then writeln(a,' la boi cua 3')

else writeln(a,' khong la boi cua 3');

readln;

end.

Answer 2