Question

viết công thức nhập vào số nguyên dương kiểm tra số vừa nhập có chia hết cho 5 hay không ( nếu có ghi yes ngược lại ghi no ) em hãy giải bài tóan trên bằng máy tính

Answer 1

uses crt;

var n:longint;

begin

clrscr;

repeat

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

until n>0;

if n mod 5=0 then writeln('Yes')

else writeln('No');

readln;

end.