Question

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

Answer 1

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.