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
DP
3
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.
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.
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.
TB
2
19 tháng 3 2018
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.
20 tháng 3 2018
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.
KK
3
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.
program Tong;
var
n, i: integer;
sum: real;
begin
writeln('Nhap vao so n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
sum := sum + 1 / i;
end;
writeln('Tong S = ', sum:0:2);
readln;
end.