Viết chương trình nhập 1 số nguyên a từ bàn phím. Sau đó, thông báo ra màn hình số vừa nhập có chia hết cho 5 hay không ? Các bạn xác định INPUT và OUTPUT luôn nha!

2 câu trả lời

input: số nguyên A

output: số A chia hết cho 5 hay không

uses crt;

var a:longint;

begin

clrscr;

readln(a);

if a mod 5=0 then write(a,' chia het cho 5')

else write(a,'khong chia het cho 5');

readln;

end.

INPUT: số nguyên a nhập từ bàn phím

OUTPUT: số đó có chia hết cho 5 hay ko

uses crt;

var a: integer;

begin

clrscr;

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

  if a mod 5 = 0 then write(a, ' chia het cho 5') else write(a, ' khong chia het cho 5');

  readln

end.