viết chương trình in và đếm các số chia hét cho 3 trong phạm vi 1 đến 50
uses crt;
var i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 50 do
if i mod 3=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln(dem);
readln;
end.
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
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.
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.
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.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Viết chương trình C++ in ra màn hình các số chia hết cho 3 trong phạm vi từ 1 đến n (n là số nguyên dương được nhập từ bàn phím)
#include <bits/stdc++.h>
using namespace std;
long long i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) if (i%3==0) cout<<i<<" ";
return 0;
}
#include <iostream>
using namespace std;
int main()
{int n;
cout<<"Nhập giới hạn n :";
cin>>n;
for(int i=1;i<=n;i++)
{if(n%3==0)
{cout<<i<<" ";}
} return 0;
}
viết chương trình đọc từ tệp BAITAP.INP hai số nguyên a,b (a<b).
in ra màn hình tổng các số chẵn trong phạm vi từ a đến b
uses crt;
const fi='baitap.inp'
var f1:text;
a,b,i,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
t:=0;
for i:=a to b do
if i mod 2=0 then t:=t+i;
writeln(t);
close(f1);
readln;
end.
Viết chương trình nhập một số tự nhiên n (n>100) từ bàn phím? In ra màn hình các số tự nhiên lẽ trong phạm vi từ 50 đến ng (Lưu ý: Các giá trị in ra phải nằm trên cùng một hàng)
Program HOC24;
var i,n: integer;
begin
write('Nhap N: '); readln(n);
for i:=50 to n do if i mod 2=1 then write(i,' ');
readln
end.
Viết chương trình tính và đưa ra màn hình tổng S và số lượng các số nguyên chẵn trong phạm vi từ a đến b? Với a, b được nhập từ bàn phím (a
#include <bits/stdc++.h>
using namespace std;
long long a,b,i,dem,s;
int main()
{
cin>>a>>b;
dem=0;
s=0;
for (i=a; i<=b; i++)
if (i%2==0)
{
dem++;
s=s+i;
}
cout<<dem<<" "<<s;
return 0;
}
