TB
2
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
22 tháng 11 2018
var n,i,s:longint;
begin clrscr;
wroite('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+2*i+1;
write(s);
readln;
end.
9 tháng 5 2021
A:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
9 tháng 5 2021
B:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln(t);
readln;
end.
10 tháng 5 2017
Program tinhtong;
Var n,s,i: integer;
Begin
Write('Hay nhap gia tri cua n'); Readln(n);
s:=0;
For i:=1 to n do s:=1/(2*i+1);
Write('Vay gia tri cua S la: ',s);
End.
LK
15 tháng 2 2018
Var i,n:integer;
S:real;
Begin
Write (' nhap n :');
Readln(n);
S:=1;
For i:= 1 to n do S:= S+1/i;
Writeln (' tong S:',S);
Readln;
end.
NK
3
ML
24 tháng 4 2019
Lời giải:
program hotrotinhoc ;
var s: real ;
i,n : integer ;
begin
write('n='); readln(n);
for i:= 1 to n do
s:=s+1/(i*i) ;
write('s=',s);
readln
end.
24 tháng 4 2019
uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
s:=1;
write('Nhap n la ');readln(n);
for i:=2 to n do
s:=s+(1/(i*i));
write('Tong la ',s:0:2);
readln
end.
uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
s:=1;
write('Nhap n la ');readln(n);
for i:=2 to n do
s:=s+(1/(i*i));
write('Tong la ',s:0:2);
readln
end.
Var i, n : integer;
S : real;
Begin
Write (‘n=’); read(n);
S:=1;
For i:= 1 to n do S:= S + 1/(i+2);
Write(S);
Readln;
End.
program bai1;
var s,i,n:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do if i mod 2=1 then s:=s+1/i;
write('s= ',s);
readln
end.