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
2 câu trả lờ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.
Câu hỏi trong lớp
Xem thêm
