3
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2378
1794
uses crt;
var s,c:real; i,d:longint;
begin
clrscr;
write('d=');readln(d);
write('c=');readln(c);
i:=2;
repeat
inc(i);
s:=s+d/i;
until s>c;
writeln('s= ',s:0:5);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
`* Pascal:`
`" "`
program total;
uses crt;
var i, d: longint;
S, c: real;
begin
clrscr;
write('Nhap d, c = ');
readln(d, c);
S := 0;
i := 3;
while S <= c do
begin
S := S + d / i;
i := i + 1;
end;
write('S = ', S : 0 : 1);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin