Question

viết công thức nhập từ bàn phím số nguyên n. kiểm tra n có chia hết cho 7 không?

Answer 1

var n:integer;

begin

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

if n mod 7=0 then writeln(n,' chia het cho 7 ')

else writeln(n,' khong chia het cho 7 ');

readln;

end.

Answer 2

Chương trình nè:

Uses crt;

var n:int64;

begin

clrscr;

write('Nhap n:');

readln(n);

if n mod 7 = 0 then writeln('N chia het cho 7')

else writeln('N khong chia het cho 7');

readln

end.

Hết

Answer 3

program tin_học;

uses crt;

var n:integer;
begin
write('nhap n:');readln(n);
if n mod 7=0 then write(n,' chia het cho 7 ')
else write(n,' khong chia het cho 7 ');
readln;
end.