Những câu hỏi liên quan
Phan Thị Ka
Xem chi tiết
Minh Lệ
19 tháng 3 2023 lúc 22:40

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:41

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

write('Tong cac so chan la: ',t);

readln

end.

Bình luận (0)
Minh Lệ
19 tháng 3 2023 lúc 22:42

Câu 3:

Program HOC24;

var i,t,n: integer;

begin

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

t:=0;

for i:=1 to n do if n mod i=0 then t:=t+i;

write('Tong cac uoc cua ',n,' la: ',t);

readln

end.

Bình luận (0)
tho hit co
Xem chi tiết
Ánh Thi
Xem chi tiết
Phía sau một cô gái
9 tháng 3 2023 lúc 14:15

# Nhập số nguyên dương N từ bàn phím

N = int(input("Nhập số nguyên dương N: "))

# Khởi tạo dãy số nguyên

numbers = []

# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers

for i in range(N):

     number = int(input("Nhập số thứ {}:".format(i+1)))

     numbers.append(number)

# In ra dãy số đã nhập

print("Dãy số bạn đã nhập là: ", end="")

for number in numbers:

     print(number, end=" ")

print()

# Tính tổng các số chia hết cho 3 và in ra màn hình

total = 0

for number in numbers:

     if number % 3 == 0:

          total += number

print("Tổng các số trong dãy chia hết cho 3 là: ", total)

Bình luận (0)
Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 2 2022 lúc 22:53

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,ln,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<"     ";

cout<<endl;

ln=a[1];

nn=a[1];

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

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<ln<<" "<<nn;

}

Bình luận (0)
Nguyễn Phạm Như Quỳnh
Xem chi tiết
Hưng Quốc
Xem chi tiết
Thanh Phong (9A5)
31 tháng 3 2023 lúc 16:51

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

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

readln;

end.

Bình luận (0)
láobốlaos
31 tháng 3 2023 lúc 16:54

1. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do write(i:3);

readln;

end.

2. Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

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

readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
2 tháng 4 2023 lúc 16:31

1.

program InDaySoTuNhien;
var n, i: integer;
begin
   write('Nhap so nguyen duong n: ');
   readln(n);

   writeln('Day so tu 1 den ', n, ' la:');
   for i := 1 to n do
      write(i, ' ');
end.

2.

program InSoChan;
var
   n, i: integer;
begin
   write('Nhap so nguyen n: ');
   readln(n);

   writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
   for i := 1 to n do
   begin
      if i mod 2 = 0 then
         write(i, ' ');
   end;
end.

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

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)
nguyennhalam
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2021 lúc 13:41

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,dem;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

dem=0;

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

if (a[i]%3==0) 

{

cout<<a[i]<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

Bình luận (0)