Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3 Câu 2:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho...

TD

Trần Đức Lâm

15 tháng 5 2020

Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3 Câu 2:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 5 Câu 3:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chẵn chia hết cho 3 Câu 4:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương lẻ chia hết cho...

Đọc tiếp

#Tin học lớp 11

4

ML

Minh Lệ

15 tháng 5 2020

Câu 3:

Program HOC24;

var a: array[1..32000] of integer;

i,n: integer;

t: longint;

begin

write('Nhap so phan tu cua day : '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to n do

if (a[i]>0) and (a[i] mod 3=0) and (a[i] mod 2=0) then t:=t+a[i];

write('Tong cac so duong chan chia het cho 3 la : ',t);

readln

end.

Câu 4:

Bạn gõ đề thiếu rồi, bạn sửa lại để được giúp đỡ nhé.

Đúng(0)

KD

Khai Duong

27 tháng 10 2020

Mình cũng muốn hỏi câu này :

Viết chương trình tính tổng các số nguyên dương lẽ chia hết cho 5, nhỏ hơn 600. In kết quả

Đúng(0)

TD

Trần Đức Duy

12 tháng 4 2021

Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3

#Tin học lớp 8

2

NL

Nguyễn Lê Phước Thịnh

12 tháng 4 2021

Câu 1:

Uses crt;

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

I,n,t:integer;

Begin

Clrscr;

Write('nhap n='); readln(n);

For i:=1 to n do

Begin

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

End;

T:=0;

For i:=1 to n do

If (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];

Writeln(t);

Readln;

End.

Đúng(1)

BA

Bùi Anh Tuấn

12 tháng 4 2021

Đúng(0)

DT

Đạt Trần

18 tháng 5 2021

viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

18 tháng 5 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

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

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

readln;

end.

Đúng(1)

BK

Bé Kunz

21 tháng 3 2021

Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5. Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách.

#Tin học lớp 11

3

NL

Nguyễn Lê Phước Thịnh

21 tháng 3 2021

Bài 1:

uses crt;

var a:array[1..200]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

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

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

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

21 tháng 3 2021

Bài 2:

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do

if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

Đúng(1)

YT

Yết Thiên

12 tháng 5 2021

Câu 1 viết chương trình nhập vào 1 dãy n số nguyên bất kỳ .In ra màn hình tổng các số chia hết cho 2

#Tin học lớp 8

1

NA

nguyễn an phát

12 tháng 5 2021

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.

Đúng(0)

NP

Nguyễn Phú Trọng

22 tháng 12 2020

BT: Viết chương trình nhập vào một dãy N số nguyên dương (N<=150), nhập vào số nguyên dương K.1. Tìm và đưa ra màn hình số lớn nhất (Max) của dãy vừa nhập, nếu dãy có nhiều số đạt Max thì tính tổng Max và đưa ra màn hình tất cả các vị trí đạt Max.2. Tìm và đưa ra màn hình số nhỏ nhất (Min) của dãy vừa nhập, nếu dãy có nhiều số đạt Min thì tính tổng Min và đưa ra màn hình tất cả các vị trí đạt...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

22 tháng 12 2020

uses crt;

var a,vtmax,vtmin:array[1..100]of integer;

n,i,max,min,dem,t,dem1,t1,dem2,t2,dem3,t3,dem4,t4,k:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('So lon nhat trong day la: ',max);

dem:=0;

t:=0;

for i:=1 to n do

if max=a[i] then

begin

inc(dem);

t:=t+a[i];

vtmax[dem]:=i;

end;

if dem>1 then

begin

writeln('Tong cac so max la: ',t);

writeln('Cac vi tri co so max la: ');

for i:=1 to dem do

write(vtmax[i]:4);

end;

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln('So nho nhat trong day la: ',min);

dem1:=0;

t1:=0;

for i:=1 to n do

if min=a[i] then

begin

inc(dem1);

t1:=t1+a[i];

vtmin[dem1]:=i;

end;

if dem1>1 then

begin

writeln('Tong cac so min la: ',t1);

writeln('Cac vi tri co so min la: ');

for i:=1 to dem1 do

write(vtmin[i]:4);

end;

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

dem2:=0;

t2:=0;

for i:=1 to n do

if (i mod 2=0) and (a[i] mod k=0) then

begin

dem2:=dem2+1;

t2:=t2+a[i];

end;

writeln('So phan tu o vi tri chan trong day la boi cua ',k,' la: ',dem2);

writeln('Tong cac so o vi tri chan trong day la boi cua ',k,' la: ',t2);

dem3:=0;

t3:=0;

for i:=1 to n do

if (i mod 2=1) and (k mod a[i]=0) then

begin

inc(dem3);

t3:=t3+a[i];

end;

writeln('So phan tu o vi tri le trong day la uoc cua ',k,' la: ',dem3);

writeln('Tong cac so o vi tri le trong day la uoc cua ',k,' la: ',t3);

dem4:=0;

t4:=0;

for i:=1 to n do

if (a[i]+k=1) or (a[i]=k+1) then

begin

inc(dem4);

t4:=t4+a[i];

end;

writeln('So phan tu la anh em cua ',k,' trong day la: ',dem4);

writeln('Tong cac phan tu la anh em cua ',k,' trong day la: ',t4);

readln;

end.

Đúng(0)

HL

Hoan Lý

9 tháng 5 2023

Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy

#Tin học lớp 8

2

KV

Kiều Vũ Linh

10 tháng 5 2023

Câu 1:

var i,n:integer;

s:longint;

begin

Write('n = ');readln(n)

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

Đúng(1)

KV

Kiều Vũ Linh

10 tháng 5 2023

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

Đúng(1)

HT

Hoangf Thu

27 tháng 4 2023

Viết chương trình nhập 1 dãy số gồm N số nguyên N≤100 in dãy vừa nhập.Tính và đưa ra màn hình tổng các số chia hết cho 2 nhưng không chia hết cho 3 trong dãy trên.Ghi kết quả vừa tính được vào tệp Bài tập.Out

Giúp mình với ạ

#Tin học lớp 11

0

BD

Bao Duong

27 tháng 4 2023

Viết chương trình nhập một dãy gồm N số nguyên A1, A2, ...,AN. Tinh và đưa ra màn hình số lượng các phần tử ở vị trí lẻ chia hết cho 9 có trong dãyCâu 2: (2.0 điểm) Viết chương trình nhập một số nguyên N từ bàn phím. Tinh và đưa ra màn hình tổng các số chẵn trong đoạn từ 1 đến N.Câu 3: (1.0 điểm) Viết chương trình nhập một dãy gồm N số nguyên dương B1, B2, ..., BN. Nhập số nguyên X. Đưa ra màn hình vị trí các...

Đọc tiếp

#Tin học lớp 8

0

HP

Hà Phương

23 tháng 12 2020

Viết chương trình .Nhập N và k nguyên dương, nhập dãy N số nguyên.Tính tổng các số chia hết cho k có trong dãy và in ra màn hình.

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

23 tháng 12 2020

uses crt;

var n,k,i,t:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

t:=0;

for i:=1 to n do

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

writeln('Tong cac so chia het cho ',k,' trong day la: ',t);

readln;

end.

Đúng(2)

LN

Lam Nguyễn Xuân

7 tháng 5 2021

Viết chương trình nhập vào dãy gồm N số nguyên a1,a2,...,aN và số nguyên K bất kỳ . Tính và đưa ra màn hình tổng các số chia hết cho K trong dãy Giúp mình với mai mình nộp bài r 🤦

#Tin học lớp 11

2

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

uses crt;

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

i,n,k,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

Đúng(1)

IG

IVR Gaming

15 tháng 10 2021

lớp 11 bth học quy hoạc động ??

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP