Viết c/trình Tính : S= 2/3 + 2/6 + 2/9 +...+2/36 Giải bằng câu lệnh while...do
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
3 tháng 3 2022
For...do:
var s,i: integer;
begin
readln(s,i);
s:=0;
For i:=3 to 99 do
If i mod 3 = 0 do s:=s+i;
write(s)
readln;
end.
while ... do:
Var i,S:integer;
Begin
Readln(i,s);
S:=0;
i:=3;
while i<=99 do
if i mod 3 = 0 then s:=s+i;
write(s);
Readln;
End.
S
3
10 tháng 4 2021
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
10 tháng 4 2021
a) uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 1980 do
s:=s+i;
writeln(s);
readln;
end.
TS
2
22 tháng 4 2021
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.
22 tháng 4 2021
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.
LH
1
4 tháng 3 2022
a: uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 100 do s:=s+1/i;
writeln(s:4:2);
readln;
end.
b:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
s:=0;
i:=0;
while i<=100 do
begin
inc(i);
s:=s+1/i;
end;
writeln(s:4:2);
readln;
end.
TG
14 tháng 8 2021
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.
3 tháng 4 2023
Câu lệnh for ... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
for i := 7 to n do
begin
S := S * i * i * i;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
readln;
end.
Câu lệnh while .... do
program Tinh_Tich;
var
n, i: integer;
S: double;
begin
write('Nhap vao so nguyen N: ');
readln(n);
S := 1;
i := 7;
while (i <= n) do
begin
S := S * i * i * i;
i := i + 1;
end;
writeln('Tich cac so 7^3*8^3*9^3*...*N^3 la: ', S);
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:=2; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
19 tháng 3 2023
program TongCacSoChan;
var
n, s, i: integer;
begin
write('Nhap n: ');
readln(n);
s := 0;
i := 2;
while i <= n do
begin
s := s + i;
i := i + 2;
end;
writeln('Tong cac so chan la: ', s);
readln;
end.
Program HOC24;
var i,n: integer;
s: real;
begin
n:=3; s:=0;
while n<=36 do
begin
s:=s+2/n;
n:=n+3;
end;
write('S= ',S:1:2);
readln
end.