Viết chương trình nhập vào 1 số , kiểm tra xem số đó có chia hết cho 7
2 câu trả lời
Program BTT;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write('Nhap mot so bat ki: '); Readln(a);
If a mod 7 = 0 then Write(a,' la so chia het cho 7')
Else Write(a,' la so khong chia het cho 7');
Readln
End.
Program Bai_1;
Uses crt;
Var a: integer;
Begin
Clrscr;
Writeln('nhap a:');
Readln(a);
If (a mod 7 = 0) then writeln('a chia het cho 7')
Else writeln('a khong chia het cho 7');
Readln;
End.
Câu hỏi trong lớp
Xem thêm
- Đề 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
