Viết chương trình in ra các ước số của N bằng câu lệnh For...do và While...do
Cứu mình!
SK
Những câu hỏi liên quan
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
program tim_uoc;
uses crt;
var i,n,tong:integer;
begin
clrscr;
write('nhap so n:');readln(n);
i:=1;tong:=0;
writeln('cac uoc cua ',n,' la:');
while i<=n do
if n mod i=0 then
begin
write(i:3);
inc(i);
end;
writeln;
i:=1;writeln('cac uoc chan:');
while i<=n do
begin
if n mod i=0 then
begin
if i mod 2=0 then write(i:3);
tong:=tong+i;
end;
end;
writeln;
write('tong cac uoc chan:',tong);
readln;
end.
Đúng 0
Bình luận (0)
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
writeln('Cac uoc cua ',n,' la: ');
while i<=n do
begin
if n mod i=0 then write(i:4):
i:=i+1;
end;
writeln;
writeln('Cac uoc chan cua ',n,' la: ');
t:=0;
i:=1;
while i<=n do
begin
if (n mod i=0) then
begin
t:=t+i;
write(i:4);
end;
inc(i);
end;
writeln('Tong cac uoc chan cua ',n,' la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình các số từ 1 => n . Sử dụng câu lệnh while..do
Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do
var n, sum : integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
while n > 0 do
begin
sum := sum + n;
n := n - 1;
end;
writeln('Tong la: ', sum);
end.
Đúng 2
Bình luận (0)
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)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Đúng 2
Bình luận (0)
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Đọc tiếp
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal nhập n (N > 0) Xuất ra màn hình:
+ Các ước của n và cho biết có bao nhiêu ước.
+ Tổng các ước của n.
+ Xét tổng các ước của n có phải là số nguyên tố không?
Lưu ý: chỉ dùng lệnh while...do
var i,n,s,du,dem:integer;
Begin
While n<=0 do
Begin
Write('N = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then
Begin
Write(i:7);
du:=du+1;
s:=s+i;
End;
Writeln('So uoc cua ',n,' la ',du);
Writeln('Tong cac uoc cua ',n,' la ',s);
For i:=1 to s do
If s mod i = 0 then dem:=dem+1;
If dem=2 then write(s,' la so nguyen to')
Else write(s,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
Cho 1 số tự nhiên n và S=1*1/n*2/n*...*n/n. Viết hoạt động và chương trình cả hai câu lệnh for to do và while do. Các bạn giúp mình với mai mình kiểm tra bài này
Xem chi tiết
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*(i/n);
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
KH
8 tháng 3 2021 lúc 23:24
Viết chương trình đưa ra màn hình các số nhỏ hơn 30 ( số tự nhiên ) bằng hai cách :- Dùng lệnh while ...do-dùng lệnh for ...do
Xem chi tiết
Cách 1: while..do
Program HOC24;
var i: integer;
begin
i:=1;
while i<30 do
begin
write(i,' ');
i:=i+1;
end;
readln
end.
Cách 2: for..do
Program HOC24;
var i: integer;
begin
for i:=1 to 29 do write(i,' ');
readln
end.
Đúng 1
Bình luận (0)