uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if (n mod 3=0) and (n mod 5=0) then writeln(n,' chia het cho 3 va chia het cho 5')
else writeln(n,' khong thoa man dieu kien de bai');
readln;
end.
Bài 3: Cấu trúc chương trình
Các câu hỏi tương tự
Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N
Nhập vào số nguyên dương
a) In ra màn hình các số chẵn và chia hết cho 4 trong khoảng từ 5 đến n
b) đếm và in ra màn hình có bao nhiêu số chia hết cho 7 trong khoảng từ 5 đến n
pascal 11
Xem chi tiết
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
Viết phương trình nhập 3 số nguyên dương a;b;c kiểm tra tính tam giác của 3 số
Viết chương trình nhập vào 2 số a,b (khác nhau). Hãy tìm và hiển thị số nhỏ nhất trong 2 số đó
Xem chi tiết
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m<n) đếm và đưa ra màn hình số lượng các số lẻ không chia hết cho 3 hoặc 5 trong phạm vi từ m đến n
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn