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 vũ thành công
Xem chi tiết
Nam Boss
22 tháng 3 2021 lúc 16:13

Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N

Bình luận (0)
Nam Boss
22 tháng 3 2021 lúc 16:14

Viết chương trình : - Nhập vào các số nguyên N - Tính tích các số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình - Thực hiện đếm xem có bao nhiêu số chia hết cho 4 từ 1 đến N và xuất kết quả ra màn hình Câu 2 : Viết chương trình : - Nhập vào các số nguyên N - Tính trung bình cộng các số từ 1 đến N

Bình luận (0)
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:38

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)
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)
Lan Phương
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2022 lúc 13:00

#include <bits/stdc++.h>

using namespace std;

long long i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (1)
Ẩn danh
8 tháng 2 2023 lúc 10:14

#include <iostream>

using namespace std;

int main()
{int n;
cout<<"Nhập giới hạn n :";
cin>>n;
for(int i=1;i<=n;i++)
{if(n%3==0)
{cout<<i<<" ";}
} return 0;
}

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)
Thùy Trinh Ngô
Xem chi tiết
nguyen thi be
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 12 2020 lúc 11:58

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

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

until n>0;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

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)