BS
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
KV
8 tháng 2 2023
Câu 1:
var i,n:integer;
s:longint;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do
s:=s+(i*10+2);
write('S = ',s);
readln;
end.
Câu 2:
var i,n:integer;
s:real;
begin
write('Nhap n = ');readln(n);
for i:=1 to n do s:=s+1/n;
write('tong la ',s:10:2);
readln;
end.
NA
9 tháng 3 2022
refer:
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=0 to n do
if i mod 2=0 then s:=s+i;
writeln('S=',s);
readln;
end.
22 tháng 2 2021
Bài 1:
uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=10 to 50 do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var a,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i*(i+2);
writeln(a);
readln;
end.
TH
1
DT
7 tháng 2 2022
Thuật toán: B1: Nhập N;
B2: A <--- 0; i <--- 1;
B3: A <--- A + ((2*i)/(2*i+1));
B4: i <--- i + 1;
B5: Nếu i > N thì thông báo A rồi kết thúc.
B6: Quay lại bước 3;
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.
7 tháng 4 2021
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
PP
20 tháng 2 2022
Viết thân thôi hen
Var n,i,s:integer;
Read(n);
s:=0;
For i:=1 to n do
If i mod 2 <>0 then s:=s+i else s:=s-i;
Write(s);
end.
ML
1
15 tháng 2 2022
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
writeln(s:4:2);
readln;
end.
Input: các số 2; 6;12;....; n(n+2).
Output: Tính tổng S = 2+ 6+12+...+n(n+2)
Chương trình:
program tinhtong;
uses crt:
var S: real;
i,n:integer;
begin
clrscr;
writeln('Nhap n'); Readln(n);
S:= 0;
for i:=1 to n do S:= S + i*(i+2);
write('S= ', S);
Readln;
end.
Chúc bạn học tốt.