1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ
Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)
Var a:array[1..15] of integer;
i,s:integer;
Begin
I:=1;
While i<=15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
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
program DemSoChiaHetCho5;
var
n, i, count: integer;
begin
write('Nhap n: ');
readln(n);
i := 1;
count := 0;
while i <= n do
begin
if i mod 5 = 0 then
count := count + 1;
i := i + 1;
end;
writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.
Viết chương trình sử dụng lệnh lặp While…do để tính tổng các số lẻ có trong n số nguyên a1, a2, a3, …, an. Các số n và a1, a2, a3, …, an được nhập vào từ bàn phím.
cho s=1^2+2^2+...+n^2. với n là 1 số tự nhiên được nhập từ bàn phím. Hãy viết điều kiện lặp, công việc lặp sau do cho lệnh while để tính tổng S trên
Uses Crt;
Var i,S,n:integer;
Begin
Clrscr;
Readln(i,S,n);
For i:=1 to n do S:=S+i*i;
Write(S);
Readln
End.
uses crt;
var s,i,n:longint;
begin
clrscr;
readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i*i;
i:=i+1;
end;
writeln(s);
readln;
end.
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s: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.
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
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.
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.