MÌNH CHO 5 VOTE CHO CÁC BẠN TRẢ LỜI ĐƯỢC Viết chương trình nhậpp vào 1 số dương nhập từ bàn phím và kiểm tra xem có chia hết cho 3 không. 1) Gõ chương trình sau đây Program Chiahet; Var n;integer Begin Write('nhap n') Readln(n); If n mod 3 =0 then writeln(n,'la so chia het cho 3') else writeln(n,'khong chia het cho3'); Readln end. 2) Lưu chương trình với tên 'chiahet.pas'. Dịch sửa lỗi nếu có 3) chay chương tình với dữ liệu 4;6
2 câu trả lời
Program Chiahet;
Uses crt;
Var n: integer;
Benin
Write ('nhap n:');
Readln (n);
If n mod 3=0 then write ('n chia het cho 3') else write (' n khong chia het cho 3');
Readln;
End.
Lỗi : readln ko có ;
n=4
màn hình kq:
n khong chia het cho 3
n=6
màn hình kq:
n la so chia het cho 3
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
