K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

11 tháng 5 2021

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=1 to 100 do s:=s+1/i;

write('S= ',s:2:2);

readln

end.

uses crt;

var i,n,s:longint;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+sqr((2*i-1));

writeln(s);

readln;

end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+i;

writeln(s);

readln;

end.

8 tháng 2 2022

#include <iostream>

using namespace std;

 

int main () {

     int tong = 0;

     for (int i = 1 ; i <= 100; i++) tong = tong + i;

     cout << " Tong S = " << tong;

     return 0;

}

Chạy chương trình

Tong S = 5050

10 tháng 4 2021

a, Với lệnh For..do:
Var i:integer;
          S:real; (Hoặc S:longint);
       Begin
    S:=0;
       For i:=1 to 1980 do S:=S+i;
      Writeln('Vay tong cua S=',S);
     Readln
    End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)
undefinedundefined

b, Với lệnh While...do
Var i:integer;
      S:real;
Begin
  S:=0; i:=0;
While i<=1980 do
  Begin
     S:= S+i;
       i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D

 

a) uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 1980 do 

  s:=s+i;

writeln(s);

readln;

end.

a)

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+i;

writeln(s);

readln;

end.

b) 

uses crt;

var s,i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

7 tháng 3 2023

*while..do

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

7 tháng 3 2023

*for..do

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/sqr(i);

write('S= ',s:6:2);

readln

end.

8 tháng 3 2023

program tinhtong;

var n,i : integer;

S : real;

begin

write('Nhap n: ');

readln(n);

i:=1;

S:=0;

while i<=n do

begin

S:=S+1/i;

i:=i+1;

end;

writeln('Tong S= ',S);

readln;

end.

24 tháng 3 2023

program tinh_tong_S;

var
  n, i: integer;
  S: real;

begin
  write('Nhap n: ');
  readln(n);
  
  S := 0;
  i := 1;
  
  while i <= n do
  begin
    S := S + 1 / i;
    i := i + 1;
  end;
  
  writeln('Tong S la: ', S:0:2);
  
  readln;
end.

7 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

20 tháng 2 2022

Viết thân thôi hen

Var n,i,s:integer;

Read(n);

s:=0;

For i:=1 to n do

 If i mod 2 <>0 then s:=s+i else s:=s-i;

Write(s);

end.

20 tháng 2 2022

mong mn giúp vs ạ
đang gấp