2 câu trả lời
Program haizz;
Uses crt;
Var n,i:integer;
S:real;
Begin
Clrscr;
n:=50;
S:=1;
For i:=1 to n do S:=1/(2*n);
Writeln('S=',S:9:2);
Readln
End.
uses crt;
var i, s : real;
begin
clrscr;
i := 1; s := 1;
while i <= 50 do
begin
s := s + 1 / (i * 2);
i := i + 1;
end;
write('S = ', s : 2 : 2);
readln
end.
Câu hỏi trong lớp
Xem thêm
