MÌNH CHO 5 VOTE CHO CÁC BẠN TRẢ LỜI ĐƯỢC
Viết chương trình nhậpp vào 1 số dương nhập từ bàn phím và kiểm tra xem có chia hết cho 3 không.
1) Gõ chương trình sau đây
Program Chiahet;
Var n;integer
Begin
Write(‘nhap n’)
Readln(n);
If n mod 3 =0 then writeln(n,’la so chia het cho 3′) else writeln(n,’khong chia het cho3′);
Readln
end.
2) Lưu chương trình với tên ‘chiahet.pas’. Dịch sửa lỗi nếu có
3) chay chương tình với dữ liệu 4;6
Lỗi : readln ko có ;
n=4
màn hình kq:
n khong chia het cho 3
n=6
màn hình kq:
n la so chia het cho 3
Program Chiahet;
Uses crt;
Var n: integer;
Benin
Write (‘nhap n:’);
Readln (n);
If n mod 3=0 then write (‘n chia het cho 3’) else write (‘ n khong chia het cho 3’);
Readln;
End.