viết ct nhập vào 1 số nguyên từ bàn phím.In ra màn hình thông báo số đó có chia hết cho 3 hay k(Gipus mình vs)
2 câu trả lời
Program CT_chia3;
Uses crt;
Var a:integer;
Begin
Clrscr;
Writeln('nhap so nguyen');
Readln(a);
If ( a mod 3 = 0 ) then write('a chia het cho 3') else write('a ko chia het cho 3');
Readln;
End.
Chúc bạn học tốt
uses crt;
var n: longint;
begin
clrscr;
readln(n);
if n mod 3 = 0 then writeln('YES') else writeln('NO');
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
