Viết CT kiểm tra một số nguyên N nhập từ bàn phím có chia hết cho 5 hay không?
2 câu trả lời
var a:integer;
begin
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.
IKSON
Program kiem_tra_a;
use crt;
var a: integer;
Begin
clrscr;
writeln('Nhap so a:='); readln(a);
if (a mod 5= 0) then writeln('a chia het cho 5') eles writeln('a khong chia het cho 5');
readln;
end.
Câu hỏi trong lớp
Xem thêm
