1. Viết chương trình nhập vào 1 số nguyên , xét xem số đó có chia hết cho 5 hay không? 2. Viết chương trình nhập vàp 1 số nguyên xem số đó có chia hết cho 3 hay không?
2 câu trả lời
1.
uses crt;
var a: integer;
begin
writeln('Nhap so nguyen a:');
readln;
if a mod 5=0 then writeln ('so nguyen a chia het cho 5') else writeln ('so nguyen a khong chia het cho 5');
readln
end.
2.
uses crt;
var a: integer;
begin
writeln('Nhap so nguyen a:');
readln;
if a mod 3=0 then writeln ('so nguyen a chia het cho 3') else writeln ('so nguyen a khong chia het cho 3');
readln
end.
Câu 1:
program cau1;
uses crt;
var n : integer;
begin
clrscr;
write('Nhap n = '); readln(n);
if(n mod 5 = 0) then write ('so ',n,' co chia het cho 5 ')
else
write ('so ',n,' khong chia het cho 5 ');
readln;
end.
Câu 2:
program cau2;
uses crt;
var n : integer;
begin
clrscr;
write('Nhap n = '); readln(n);
if(n mod 3 = 0) then write ('so ',n,' co chia het cho 3 ')
else
write ('so ',n,' khong chia het cho 3 ');
readln;
end.
#mình gửi đáp án nhá . Nhớ vote mình 5 sao và tym nhá
- Đề 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
