Những câu hỏi liên quan
đức minh
Xem chi tiết
Uyên trần
24 tháng 3 2021 lúc 12:14

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 t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
Nguyễn Ngọc Diễm My
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 4 2022 lúc 22:52

 

 

 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

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

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

cout<<t;

return 0;

}

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
16 tháng 1 2017 lúc 15:20

Bình luận (0)
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)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
7 tháng 9 2017 lúc 8:54

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)
duy lê
Xem chi tiết
Minh Lệ
31 tháng 3 2021 lúc 16:53

Program HOC24;

var i,n: integer;

begin

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

write('Cac so tu 1 den ',n,' chia het cho 2 la: ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

writeln;

for i:=1 to n do if i mod 2=1 then write(i,' ');

readln

end.

Bình luận (0)
Võ Tấn Trường Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 15:01

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

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

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

cout<<t;

return 0;

}

Bình luận (0)
Thùy Trinh Ngô
Xem chi tiết