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.

30 tháng 3 2023

program TinhTong;

var

     S, i: integer;

begin

     S := 0;

     i := 2;

     while i <= 100 do

     begin

          S := S + i;

          i := i + 2; 

     end;

     writeln('Tong S= ', S); 

     readln;

end.

30 tháng 3 2023

program TinhTong;

var
  i, s: Integer;

begin
  i := 2; // bắt đầu từ 2
  s := 0; // khởi tạo giá trị ban đầu của tổng

  while i <= 100 do
  begin
    s := s + i; // thêm giá trị của i vào tổng
    i := i + 2; // tăng i lên 2 đơn vị để chuyển sang số chẵn tiếp theo
  end;

  writeln('Tong cac so chan tu 2 den 100 la: ', s);
end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,s=0;

cin>>n;

for (int i=0; i<=n; i++)

s=s+pow(2,i);

cout<<s;

return 0;

}

28 tháng 3 2022

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

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

write(t);

readln

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

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

writeln(t);

readln;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

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

writeln(t);

readln;

end.

12 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=2; s:=0;

while i<=n do

begin

s:=s+1/i;

i:=i+1;

end;

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

readln

end.

30 tháng 4 2018

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.

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long i,t;

int main()

{

t=0;

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

t=t+i;

cout<<t;

return 0;

}

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.