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.
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
var i,n:integer;
s:real;
begin
s:=1;
write('ban hay nhap vao mot so nguyen: '); readln(n);
for i:= 1 to n do
s:= s + (1/(i*(i+1));
writeln(' tong s = ',s:0:2);
readln
end.
program bai1;
var i,n:longint;s:real;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
uses crt;
var i,n:integer; S:real;
Begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do S:=S+1/(i*(i+2));
writeln('Tong la: ',S:3:1);
readln
End.
Var i , x : integer;
S : real;
Begin
write (' x = '); read (x);
S:=0;
For i:=1 to x do S:= S+i;
Write (S);
Readln;
End.
program bai1;
var s,i,x:longint;
begin
write('x= ');
readln(x);
s:=1;
for i:=2 to n do
s:=s+1/i;
write('s= ',s);
readln
end.
var i,n:integer;
Tong:real;
begin
write('nhap n=');readln(n);
Tong:=0;
for i:=1 to n do Tong:=Tong+1/(i*i);
write('ket qua la:',Tong);
readln
end.
program tinhtong;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*i));
write('tong vua tinh la:',s:2:3);
readln;
end.
người mới vô có gì sai sót mong bỏ qua :)).