Viết chương trình tìm xem có bao nhiêu số dương trong n số nhập vào từ bàn phím?
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.
Viết chương trình nhập vào 1 dãy số gồm n số ( n được nhập từ bàn phím) . Đếm xem trong dãy có bao nhiêu số âm ,bao nhiêu số dương ( Biết số âm là những số < 0, số dương là những số >0) giúp mình vớiii mai mình thi gòiiii
progam bai1;
var a: array[1..32000] of integer ;
i,n,dem1,dem2 : integer ;
begin
write('n='); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem1:=0; dem2:=0;
for i:= 1 to n do
begin
if a[i]>0 then dem1:=dem1+1;
if a[i]>0 then dem1:=dem2+1;
end;
write('Cac so nguyen am trong day la:',dem1);
writeln;
write('Cac so nguyen am trong day la:',dem2);
readln;
end.
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
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.
Viết chương trình nhập vào số tự nhiên N(N≤109)từ bàn phím đếm xem N có bao nhiêu chữ số 0
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
int main()
{
cin>>st;
d=st.length();
dem=0;
for (i=0; i<d; i++)
if (st[i]=='0') dem++;
cout<<dem;
return 0;
}
Var n,dem:longint;
Begin
Write('Nhap so n = ');readln(n);
While n >= 10 do
Begin
if n mod 10 = 0 then dem:=dem+1;
n:=n div 10;
End;
Write('So vua nhap co ',dem,' so 0');
Readln;
End.
Viết chương trình nhập mảng A có N phần tử là số nguyên (N được nhập bất kì từ bàn phím). Hãy đếm xem có bao nhiêu phần tử dương.
#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>0) dem++;
}
cout<<dem;
return 0;
}
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Program HOC24;
var a: array[1..32000] of integer;
i,n,d: integer;
begin
write('Nhap N: ');
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Day vua nhap la: ');
for i:=1 to n do write(a[i],' '); writeln;
d:=0;
for i:=1 to n do if a[i]>0 then d:=d+1;
write('Co ',d,' so duong');
readln
end.
Viết chương trình nhập từ bàn phím số nguyên dương n (n>=2). Hãy sử dụng hàm trên đếm xem từ 1 đến n có bao nhiêu số có dạng 3k+5
Viết chương trình nhập vào dãy N số nguyên, đếm xem có bao nhiêu số ko chia hết cho 5(N nhập đc vào từ bàn phím ) GIÚP MIK VS MN MAI MIK THÌ TIN RỒI
Program HOC24;
var i,n,d: integer;
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;
d:=0;
for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;
write('Co ',d,' so khong chia het cho 5');
readln
end.
viết chương trình nhập vào một dãy các số nguyên từ bàn phím sau đó đếm
xem dãy có bao nhiêu số dương.
tham khảo
program tinhoc;
uses crt;
var n,dem,tich:integer;
a: array[1..1000] of integer;
begin
clrscr;
writeln('Nhap so phan tu cua day: ');readln(n);
writeln('Nhap ',n,' phan tu cua day: ');
for i:= 1 to n do readln(a[i]);
dem:=0; tich:=1;
for i:= 1 to n do if a[i] mod 2 = 0 then begin dem:=dem+1; tich:=tich*a[i] end;
writeln('Co ',dem,' phan tu chan trong day');
writeln('Tich cua cac so chan trong day la: ',tich);
readln
end.
#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>0) dem++;
}
cout<<dem;
return 0;
}