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.