viết chươngtrình nhập vào một số dương và kiểm tra xem nó có chia hết cho ba không?
câu 1: gõ chương trình sau
program chia het
var n:integer
Write ('nhap n:')
Readln
Câu2. Lưu chương trình dưới tên "chiahet.pas". Dịch và sửa lỗi ( nếu có)
Câu 3.Chạy chương trình với dữ liệu 4,6
viết chươngtrình nhập vào một số dương và kiểm tra xem nó có chia hết cho ba không?
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 3=0 then writeln(a,' chia het cho 3')
else writeln(a,' khong chia het cho 3');
readln;
end.