Viết chương trình nhập vào một số. Kiểm tra xem số đó có chia hết cho 3 không, đó là số âm hay số dương, chẵn hay lẻ?(sử dụng câu lệnh điều kiện dạng đủ)
2 câu trả lời
Program bai1;
uses crt;
var n : integer;
begin
clrscr;
repeat
write('nhap so nguyen ='); readln(n);
until n > 0;
if n mod 3 = 0 then
write('- so ',n,' chia het cho 3 ') else
write('- so ',n,' khong chia het cho 3 ');
writeln;
if n mod 2 = 0 then
write('- so ',n,' la so chan ') else
write('- so ',n,' la so le ');
readln;
end.
Program bai1;
uses crt;
var n : integer;
begin
clrscr;
repeat
write('nhap so nguyen ='); readln(n);
until n > 0;
if n mod 3 = 0 then
write('- so ',n,' chia het cho 3 ') else
write('- so ',n,' khong chia het cho 3 ');
writeln;
if n mod 2 = 0 then
write('- so ',n,' la so chan ') else
write('- so ',n,' la so le ');
readln;
end.
chúc pn hk tốt nhá
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
