viết chương trình pascal
đề : yêu cầu người dùng đăng nhập một số nguyên dương .Sau kiểm tra và in ra màn hình ” Chia hết cho 3 ” nếu số đó chia hết cho 3 , ” Không chia hết cho 3” , nếu số đó không chia hết cho 3
Giúp mình với mai mình ktra rồi
viết chương trình pascal
đề : yêu cầu người dùng đăng nhập một số nguyên dương .Sau kiểm tra và in ra màn hình ” Chia hết cho 3 ” nếu số đó chia hết cho 3 , ” Không chia hết cho 3” , nếu số đó không chia hết cho 3
Giúp mình với mai mình ktra rồi
uses crt;
var n:integer;
begin
clrscr;
write(‘Nhap so nguyen duong: ‘);readln(n);
while n<=0 do
begin
write(‘Nhap lai: ‘);
readln(n)
end;
If n mod 3 = 0 then writeln(‘Chia het cho 3’);
If n mod 3 <>0 then writeln(‘Khong chia het cho 3’);
readln;
end.
Program chia_het;
uses crt;
var n: integer;
Begin
clrscr;
Write(‘nhap so n:’); readln(n);
if n mod 3=0 then write(‘so nay chia het cho 3’)
else writeln(‘so nay khong chia het cho 3’);
readln
End.