viết chương trình kiểm tra số hoàn hảo trong pascal bằng câu lệnh while...do
Những câu hỏi liên quan
(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.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Đúng 2
Bình luận (1)
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Đúng 2
Bình luận (1)
Viết chương trình pascal tìm các số hoàn hảo bé hơn n.
Giúp mình với ạ, sắp kiểm tra rồi :(((
Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
Program Tim_uoc_2;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.
Đúng 7
Bình luận (1)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
Đúng 2
Bình luận (0)
10 tháng 3 2022 lúc 19:23
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
10 tháng 3 2022 lúc 14:27
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
híc sắp thi rồi giúp em với ạ plssssssssscâu hỏi gồm 3 câu ạcâu 1:viết chương trình nhập 1 số tự nhiên N và kiểm tra xem N có là số hoàn hảo không? (số hoàn hảo là số có tổng các ước tự nhiên nhỏ hơn nó bằng chính nó)câu 2:viết chương trình nhập 1 số nguyên N và kiểm tra xem N có là số nguyên tố khôngcâu 3: viết chương trình nhập 1 mảng A gồm N số nguyên và xuất ra màn hình số nhỏ nhất trong mảng
Đọc tiếp
híc sắp thi rồi giúp em với ạ plsssssssss
câu hỏi gồm 3 câu ạ
câu 1:viết chương trình nhập 1 số tự nhiên N và kiểm tra xem N có là số hoàn hảo không? (số hoàn hảo là số có tổng các ước tự nhiên nhỏ hơn nó bằng chính nó)
câu 2:viết chương trình nhập 1 số nguyên N và kiểm tra xem N có là số nguyên tố không
câu 3: viết chương trình nhập 1 mảng A gồm N số nguyên và xuất ra màn hình số nhỏ nhất trong mảng
viết chương trình pascal tính 2/3+2/4+2/5+...2/n (biết n là số nhập từ bàn phím) bằng câu lệnh while..do hoặc for..to..do
Uses crt;
Var i,n:integer;
S:real;
Begin
Write ('Nhap n');
Readln (n)
S:=0;
For i:=3 to n do
S:=S+2/i;
Write ('Ket qua',S);
Readln;
End.
Đúng 3
Bình luận (0)
Phát biểu nào sau đây đúng trong lệnh While …do…
A Câu lệnh sau Do phải được thực hiện ít nhất 1 lần
B Trong câu lệnh sau Do luôn là câu lệnh ghép.
C Chương trình sẽ thực hiện câu lệnh sau Do rồi kiểm tra biểu thức điều kiện.
D Trong câu lệnh sau Do phải có giá trị làm thay đổi biểu thức điều kiện.
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +1980?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a, Với lệnh For..do:
Var i:integer;
S:real; (Hoặc S:longint);
Begin
S:=0;
For i:=1 to 1980 do S:=S+i;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
b, Với lệnh While...do
Var i:integer;
S:real;
Begin
S:=0; i:=0;
While i<=1980 do
Begin
S:= S+i;
i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D
Đúng 2
Bình luận (0)
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
b) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
i:=1;
while i<=1980 do
begin
s:=s+i;
i:=i+1;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
a)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var s,i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Đúng 2
Bình luận (1)