viết chương trình tính tổng sau s=d/3+d/4+d/5 +....+d/i+....cho đến kho S>c d, i là các số nguyên dương <100000 1<d<10; 3<i<10 C là 1 số thực 1<c<10
2 câu trả lời
-
Program Tinh_tong;
Uses Crt;
Var i, S: Integer;
Begin
Clrscr;
S:=0; i:=1;
While S>=100 do
Begin
S:=S+i;
i:=i+1;
End;
Writeln('Ket qua',S);
Readln;
End.
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.
Câu hỏi trong lớp
Xem thêm
