Question

Viet chuong trinh hoan chinh,su dung cau lenh dieu kien,thuc hoen nhap tu ban phim,gia tri cua bien nguyen a va in thong bao xem a co phai boi cua 7 hay khong

Answer 1

uses crt;

var a:integer;

begin

clrscr;

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

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

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

readln;

end.