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.

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

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

if (i%3==0) t=t+i;

cout<<t;

return 0;

}

23 tháng 12 2021

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

23 tháng 12 2021

Bài 1 đâu ạ

 

9 tháng 1 2022

Program tinhtong;
uses crt;
var i, SUM, N : integer;
Begin
Clrscr;
Write('Nhap N: '); Readln(n);
SUM := 0; For i:=1 to N do if (i mod 3 = 0) then SUM:= SUM + i;
Write('Tong la: ', SUM);
Readln;
End.

9 tháng 1 2022

......... ? 

cái gì đấy 

22 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,t,i;

int main()

{

cin>>a>>b;

t=0;

for (i=a; i<=b; i++)

if (i%3==0) t=t+i;

cout<<t;

return 0;

}

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

6 tháng 3 2023

n = int(input('Nhập số n: '))

sum = 0

i = 1

while i <= n:

      if i % 2 == 0:

            sum += i

            print(i, end=' ')

      i += 1

print()

print('Tổng các số chẵn từ 1 đến n là:', sum)

4 tháng 5 2023

program TinhTongChiaHetChoBa;

var

      N, i, Tong: integer;

begin

      writeln('Nhap so nguyen duong N (3 <= N <= 50):');

      readln(N);

      if (N < 3) or (N > 50) then

      begin

            writeln('N khong hop le!');

            readln;

            exit;

      end;

      Tong := 0;

      i := 3;

      while i <= N do

      begin

            if i mod 3 = 0 then

            begin

                  Tong := Tong + i;

            end;

            i := i + 1;

      end;

      writeln('Tong cac so tu 3 den ', N, ' chia het cho 3 la: ', Tong);

      readln;

end.

26 tháng 7 2023

program TongCacSoChiaHetChoBa;

var

     n, i, sum: integer;

begin

repeat

          Write('Nhap so nguyen n (3 <= n <= 50): ');

          Readln(n);

     until (n >= 3) and (n <= 50);

     sum := 0;

     for i := 3 to n do

     begin

          if i mod 3 = 0 then

          sum := sum + i;

     end;

     WriteLn('Tong cac so chia het cho 3 trong khoang tu 3 den ', n, ': ', sum);

     ReadLn;

end.

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 12 do 

  if i mod 2=0 then t:=t+i;

writeln(t);

readln;

end.

25 tháng 4 2023

n = int(input("Nhap vao mot so n: "))

tong = 0

for i in range(1, n):

      if i % 3 == 0:

            tong += i

print("Tong cac so chia het cho 3 tu 1 den", n-1, "la:", tong)