Những câu hỏi liên quan
Yết Thiên
Xem chi tiết
nguyễn an phát
12 tháng 5 2021 lúc 14:48
program tinh_tong;

uses crt;

var i,n:integer;

t:longint;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

t:=0;

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

if a[i] mod 2=0 then t:=t+a[i];

end;

write(t);

readln;

end.

  
Bình luận (0)
Nguyễn Tân Lợi
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 2 2023 lúc 8:19

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=0 to n do

if i mod 2=0 then write(i:5);

readln;

end.

Bình luận (0)
Anh Nguyen
Xem chi tiết
Phía sau một cô gái
18 tháng 3 2023 lúc 19:37

N = int(input("Nhập số lượng phần tử của dãy N (>50): "))

while N <= 50:

         N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))

# Nhập vào dãy số 

danh_sach = []

for i in range(N):

         danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))

# In ra dãy số vừa nhập

print("Dãy số vừa nhập:")

for i in danh_sach:

         print(i, end=' ')

# Nhập vào số nguyên x

x = int(input("nNhập vào số nguyên x: "))

# In ra các số chia hết cho x 

print("Các số chia hết cho x là:")

for i in danh_sach:

         if i % x == 0:

                  print(i, end=' ')

Bình luận (0)
ẩn danh
Xem chi tiết
phươngplayergamer
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:36

#include <bits/stdc++.h>

using namespace std;

long long m,n,i;

int main()

{

cin>>m>>n;

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

if (i%2==1) cout<<i<<" ";

return 0;

}

Bình luận (0)
Nguyền Gia Mèo
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 13:11

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

if (a[i]%5==0) cout<<i<<" ";

return 0;

}

Bình luận (0)
Tuân Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2021 lúc 10:23

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do  

  s:=s+i;

writeln(s);

readln;

end.

Bình luận (0)
Triệu Bạch Ngân
Xem chi tiết
Minh Lệ
21 tháng 4 2023 lúc 6:53

loading...  

Bình luận (0)
Lê Đăng Khôi
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:39

1:

uses crt;

var t,x,i,n:integer;

begin

clrscr;

t:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

t:=t+x;

end;

write(t);

readln;

end.

2: 

uses crt;

var dem,x,i,n:integer;

begin

clrscr;

dem:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

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

end;

write(dem);

readln;

end.

Bình luận (1)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:18

3

program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do

if  i mod 2 = 1 then
write (i,' ');
readln;
end.

Bình luận (1)