program bai1;
var n,du,d:longint;
begin
write('N= ');readln(n);
d:=0;
while n<>0 do
begin
du:=n mod 10;
d:=d+1;
n:=n div 10;
end;
writeln('So chu so la ',d);
readln
end.
sử dụng câu lệnh while ... do
viết ct nhập vào số tự nhiên n sau đó in ra n có bao nhiêu chữ số lẻ!!!!
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
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 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)
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 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 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!!!!!!
"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:(
