program bai1;
var n,du,d:longint;
begin
write('N= ');readln(n);
d:=0;
while n>0 do
begin
du:=n mod 10;
if (du mod 2<>0) then d:=d+1;
n:=n div 10;
end;
writeln('So chu so le la ',d);
readln
end.
sử dụng lệnh while ... do
viết ct nhập vào số tự nhiên n sau đó in ra n có bao nhiêu số !!!
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Sử dụng câu lệnh lặp while...do viết lại thuật toán để nhập số tự nhiên n và tính tổng các ước số thực của n
viết chương trình nhập vào số tự nhiên n sao đó in ra màn hình
chữ số lớn nhất của n
chữ số nhỏ nhất của n
sử dụng lệnh while ...do!!!!!!
Viết chương trình sử dụng lệnh lặp While ... do ... để thực hiện công việc sau
- Nhập vào số nguyên n (10<n<100)
-In ra màn hình tất cả các ước của n
-Tính tổng và thông báo các ước của n là số chẵn
Viết chương trình sử dụng lệnh lặp while....do... để đếm các số tự nhiên chia hết cho 5 từ 1 -> n được nhập từ bàn phím
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
sử dụng lệnh lặp while do để nhập số tự nhiên n và tính tổng các ước của n. cảm ơn ạ.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
