NL
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
27 tháng 5 2021
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n*2-1 do
if i mod 2=1 then s:=s+1/i;
writeln('tong la: ',s);
readln;
end.
27 tháng 5 2021
program tinh_tong;
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
i:=1;
while i<=n*2-1 do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('tong la: ',s);
readln;
end.
N
1
16 tháng 3 2023
program TinhTongWhileDo;
var
n, i: integer;
S: real;
begin
write('Nhap so n: ');
readln(n);
S := 0;
i := 1;
while i <= 2*n do
begin
S := S + 1/i;
i := i + 1;
end;
writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);
readln;
end.
NP
2
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.
21 tháng 3 2023
Sử dụng vòng lặp while...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
i := 1;
sum := 0;
while i <= 20 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
21 tháng 3 2023
Sử dụng vòng lặp for...do:
program TinhTong20SoTNN;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('Tong cua 20 so tu nhien dau tien la: ', sum);
end.
HL
14 tháng 5 2023
var i,n,s:longint;
begin
read(n); if n<2 then break;
for i:=3 to n do s:=s+i;
write(s);
end.
KV
15 tháng 5 2023
Var i,n:integer;
t:longint;
Begin
Write('n = ');readln(n);
i:=2;
While i<=n do
Begin
t:=t+i;
i:=i+1;
End;
Write('Tong la ',t);
Readln
End.
TN
2
30 tháng 3 2023
program TinhTong;
var
S, i: integer;
begin
S := 0;
i := 2;
while i <= 100 do
begin
S := S + i;
i := i + 2;
end;
writeln('Tong S= ', S);
readln;
end.
30 tháng 3 2023
program TinhTong;
var
i, s: Integer;
begin
i := 2; // bắt đầu từ 2
s := 0; // khởi tạo giá trị ban đầu của tổng
while i <= 100 do
begin
s := s + i; // thêm giá trị của i vào tổng
i := i + 2; // tăng i lên 2 đơn vị để chuyển sang số chẵn tiếp theo
end;
writeln('Tong cac so chan tu 2 den 100 la: ', s);
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,s=0;
cin>>n;
for (int i=0; i<=n; i++)
s=s+pow(2,i);
cout<<s;
return 0;
}