Viết phương trình nhập vào từ bàn phím 4 số nguyên hỏi có bao nhiêu số chẵn trong các số vừa nhập
Những câu hỏi liên quan
GIÚP MK VS Ạ! MAI MK THI ÒI mk trân thành cảm ơn ạ!-Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?-Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?-Viết chương trình nhập vào N số nghuyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
Đọc tiếp
GIÚP MK VS Ạ! MAI MK THI ÒI
mk trân thành cảm ơn ạ!
-Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
-Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
-Viết chương trình nhập vào N số nghuyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?
program TichSoChiaHetCho3;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
tich := 1;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 3 = 0 then
begin
tich := tich * a[i];
end;
end;
writeln('Tich cac phan tu chia het cho 3 la: ', tich);
readln;
end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?
program DemSoChanTrongDay;
var
n, i, tich: integer;
a: array[1..100] of integer;
begin
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
begin
dem := dem + 1;
end;
end;
writeln('So phan tu chan trong day la: ', dem);
readln;
end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?
program HienThiSoNhoHon20;
var
n, i: integer;
a: array[1..100] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] <= 20 then
begin
writeln(a[i]);
end;
end;
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên a. cho biết dãy số vừa nhập có bao nhiêu số chẵn b. cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50 c. tính tổng các số đó
Var a:array[1..200] of integer;
i,n,d1,d2,s:integer;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
Begin
If a[i] mod 2 = 0 then d1:=d1+1;
If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;
End;
Writeln('Co ',d1,' so chan');
Write('Co ',d2,' so tu 1 den 50');
Readln;
End.
Đúng 0
Bình luận (0)
14 tháng 5 2021 lúc 15:21
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Đúng 2
Bình luận (0)
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.
uses crt;
var a:array[1..100]of integer;
i,n: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
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 dãy gồm n số(n được nhập vào từ bàn phím) tính tổng các số chẵn có trong dãy số vừa nhập
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n: '); 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] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào từ một bàn phím một số nguyên dươngbin ra kết quả số vừa nhập là số chẵn hay lẻ
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím, đếm và in ra trong dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ, tính tổng các số lẻ trong mảng, tính giá trị trung bình của các số chẵn.:)) mong mọi người giúp mik
14 tháng 5 2021 lúc 7:52
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
a) Mô tả thuật toán:
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; t←0; i←1;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất dem, t
-Bước 7: Kết thúc
Đúng 1
Bình luận (1)
Viết chương trình nhập vào các số nguyên từ bàn phím cho đến khi gặp số nguyên tố thì kết thúc nhập. Tính tổng các số chẵn trong dãy
uses crt;
var n,t:integer;
{------------------kiem-tra-so-nguyen-to----------------------------}
function ktnt(x:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
kt:=false;
break;
end;
if kt=true then ktnt:=true
else ktnt:=false;
{----------------------chuong-trinh-chinh------------------------}
begin
clrscr;
t:=0;
repeat
write('Nhap n='); readln(n);
if (n mod 2=0) then t:=t+n;
until ktnt(n)=false;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)