Những câu hỏi liên quan
Dũng Nguyễn
Xem chi tiết
Sơn Mai Thanh Hoàng
9 tháng 1 2022 lúc 21:09

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.

Bình luận (1)
Thu Hằng
9 tháng 1 2022 lúc 21:14

(3+6+9+12+18+21+27+33+36+42+45+48+52+54+60+63+66++69+72+75+78+81+84+87+90+93+96+99)⋮3

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 1 2022 lúc 21:27

#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;

}

Bình luận (0)
Hải yến 11a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:38

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

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

if ((i%3==0) and (i%2==1)) t=t+i;

cout<<t;

return 0;

}

Bình luận (0)
๖ۣۜD๖ۣۜU๖ۣۜC๖ۣۜK
Xem chi tiết
Bùi Anh Tuấn
14 tháng 4 2021 lúc 19:56

Bình luận (0)
Nguyễn Lê Phước Thịnh
14 tháng 4 2021 lúc 20:12

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 30 do 

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

writeln(t);

readln;

end.

Bình luận (0)
emhocngulamgiupemvoi
Xem chi tiết
Lê Hải Dương
7 tháng 3 2023 lúc 20:52

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;

Bình luận (0)
Lê Hải Dương
7 tháng 3 2023 lúc 20:53

 

 

 

Bình luận (0)
M Ạ C H N H A
Xem chi tiết
Huyền Trang Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 18:35

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',t);

readln;

end.

Bình luận (0)
Bùi Anh Tuấn
7 tháng 3 2021 lúc 21:29

Bình luận (0)
Thành Tân B1-
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2021 lúc 8:42

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.

Bình luận (1)
trithengahihi
Xem chi tiết
Phía sau một cô gái
6 tháng 3 2023 lúc 14:55

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)

Bình luận (0)
Võ Thị Mạnh
6 tháng 3 2023 lúc 15:05

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)

Bình luận (0)
Cương Kim
Xem chi tiết
Phía sau một cô gái
25 tháng 4 2023 lúc 20:17

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)

Bình luận (0)