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.
program Bai_1;
uses crt;
var n,i:integer; s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(2*i);
write('S=',s);
readln;
end.
program Bai_2;
uses crt;
var n,i:integer; gt:longint; s:real;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
begin
gt:=gt*i;
s:=s+1/gt;
end;
write('S=',s);
readln;
end.
- nếu như khai báo biến S:real thì nên thêm độ rộng chữ số vào kq
Uses crt;
Var i,n:integer;
S:real;
Begin
Clrscr;
Write('Nhap n = ');Readln(n);
S:=0;
For i:=1 to n do
S:=S+(i+1)/2;
Write(S:0:1);
Readln
End.
{ Có sai sót gì thì cho mình xin lỗi, phần S có thể ra số vô tỉ nên mình làm tròn số lại =) }
program bai1;
var s,n,i:longint;
begin
write('N= ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('S= ',s);
readln
end.
Var i , n : integer ;
S : real;
Begin
write ( 'n =') ; read (n) ;
S:= 0;
For i:=1 to n do S : = S + 1/i;
Writeln (S);
Readln;
End.
program bai1;
var n,i:longint;s:real;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*(i+2));
writeln('Tong la ',s);
readln
end.
của Trương Quang Dũng thiếu uses crt;
ko khai báo s.
có 2 dấu ngoặc liên tiếp nên chương trình sẽ bị lỗi
Thanks trước
helppp me?