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 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 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 1c d, i là các số nguyên dương <100000 1
0 bình luận về “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”
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.
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.