Sử dụng vòng lặp for...dovà while...do viết chươnmg trình
a. Tính tổng S = 1+2+3+...+100
b. Tính tổng S +1+1/2+1/3+...+1/10
C. Tính tổng S=1+2+3+..n ( n nhập từ bàn phím)
d. Tính tổng S= 1+1/2+1/3....+1/n ( n nhập từ bàn phím)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
1 tháng 5 2021
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.
ML
7 tháng 3 2023
*while..do
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
s:=s+1/sqr(i);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
8 tháng 3 2023
program tinhtong;
var n,i : integer;
S : real;
begin
write('Nhap n: ');
readln(n);
i:=1;
S:=0;
while i<=n do
begin
S:=S+1/i;
i:=i+1;
end;
writeln('Tong S= ',S);
readln;
end.
24 tháng 3 2023
program tinh_tong_S;
var
n, i: integer;
S: real;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + 1 / i;
i := i + 1;
end;
writeln('Tong S la: ', S:0:2);
readln;
end.
KV
29 tháng 3 2022
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
ML
7 tháng 3 2023
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
24 tháng 3 2023
program tinh_tong_S;
var
n, i, S: integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
i := 1;
while i <= n do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S la: ', S);
readln;
end.
a.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 100 do S:= S + i;
Write (S);
Readln;
End.
b.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 10 do S:= S + 1/i;
Write (S);
Readln;
End.
c.
Var i,n : integer;
S : real;
Begin
write ('n = '); read (n);
S:= 0;
For i:=1 to n do S:= S + i;
Write (S);
Readln;
End.
d.
Var i : integer;
S : real;
Begin
write ('n = '); read (n);
S:= 0;
For i:=1 to n do S:= S + 1/i;
Write (S);
Readln;
End.