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

30/07/2021

By Skylar

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”

1.  

   • 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.

   Trả lời

2. 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.

   Trả lời