Viết thuật toán đếm xem có bao nhiêu số chẵn từ 1 đến n(n>=1)
Những câu hỏi liên quan
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)
Cho N và day a1, a2... aN viết thuật toán tính tổng các cô chẵn trong dãy và đếm xem có bao nhiêu số chẵn trong dãy
Xem chi tiết
Thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: t←0; dem←0; i←1
-Bước 3: nếu a[i] mod 2=0 thì t←t+a[i] và dem←dem+1;
-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 và t
-Bước 7: Kết thúc
Đúng 2
Bình luận (0)
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)
Sử dụng chương trình pascal:
a,Viết chương trình nhập 1 số n từ bàn phím.
b,Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó.
uses crt;
var t,n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
t:=0;
for i:=0 to n do
if i mod 2=0 then
begin
t:=t+i;
dem:=dem+1;
end;
writeln(dem,' ',t);
readln;
end.
Đúng 2
Bình luận (0)
hãy xác định bài toán và viết thuật toán để đếm xem trong dãy A các số a1; a2; ...an có bao nhiêu số chẵn và bao nhiêu số lẻ
Input: số phần tử của dãy A, dãy a1,a2...an.
Output:số phần tử chẵn, lẻ.
thuật toán:
B1: demchan <--0; demle <--0; i<--1;
B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;
B3: i <--i+1;
B4: nếu i<=n thì quay lại bước 2;
B5: thông báo giá trị demchan và demle và kết thúc thuật toán.
chúc bạn học tốt
Đúng 0
Bình luận (0)
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
Đọc tiếp
MÌNH CẦN GẤP Ạ, MAI THI RỒI :(( 1. Viết chương trình tính tổng và tích các số chia hết cho 3 trong dãy số N. 2. Viết chương trình đếm xem trong dãy số N có bao nhiêu số chẵn và tính tổng các số chẵn đó. 3. Viết chương trình đếm có bao nhiêu số chẵn hoặc lẻ trong dãy số N rồi tính tổng và tích của các số chẵn và lẽ đó. Mong mọi người giúp mình :((
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
s:=1;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
inc(dem);
t:=t+a[i];
s:=s*a[i];
end;
if dem=0 then writeln('Khong co so chia het cho 3 trong day')
else begin
writeln('Tong cac so chia het cho 3 la: ',t);
writeln('Tich cac so chia het cho 3 la: ',s);
end;
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2,s1,s2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem1:=0;
dem2:=0;
t1:=0;
t2:=0;
s1:=1;
s2:=1;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
inc(dem1);
t1:=t1+a[i];
s1:=s1*a[i];
end
else begin
inc(dem2);
t2:=t2+a[i];
s2:=s2*a[i];
end;
end;
if dem1=0 then writeln('Khong co so chan trong day')
else begin
writeln('So so chan la: ',dem1);
writeln('Tong cac so chan la: ',t1);
writeln('Tich cac so chan la: ',s1);
end;
if dem2=0 then writeln('Khong co so le trong day')
else begin
writeln('So so le la: ',dem2);
writeln('Tong cac so le la: ',t2);
writeln('Tich cac so le la: ',s2);
end;
readln;
end.
Đúng 0
Bình luận (0)
Cho 1 số nguyên n được nhập từ bàn phím và dãy số nguyên a1,a2,...,ăn. Hãy viết chương trình đếm xem trong dãy đó có bao nhiêu số chẵn
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập 1 số n từ bàn phím.Đếm xem có bao nhiêu số chẵn từ 0 đến n và tính tổng các số chẵn đó
#include <bits/stdc++.h>
using namespace std;
long long n,i,dem,t;
int main()
{
cin>>n;
dem=0; t=0;
for (i=0; i<=n; i++)
if (i%2==0)
{
dem++;
t=t+i;
}
cout<<dem<<" "<<t;
return 0;
}
Đúng 0
Bình luận (0)
Var s,so,i,n,dem:integer;
Begin
Write('Nhap n = ');readln(n);
For i:=0 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(so);
If so mod 2 = 0 then
Begin
dem:=dem+1;
s:=s+so;
End;
End;
Writeln('Co ',dem,' so chan');
Write('Tong cua chung la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if i mod 7=0 then inc(dem);
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 1 toi ',n);
readln;
end.
Đúng 0
Bình luận (1)