viết chương trình vào số nguyên x và kiểm tra số đó có chia hết cho 5 hay không?
2 câu trả lời
uses crt;
var x:integer;
begin
clrscr;
write ('Nhap x: '); readln (x);
if x mod 5 = 0 then write (x,' chia het cho 5')
else write (x,' khong chia het cho 5');
readln;
end.
program bai_giai;
uses crt;
var x:longint;
begin
clrscr;
write('nhap x:');readln(x);
if(x mod 5=0)then write('x chia het cho 5')else write('x khong chia het cho 5');
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
