Bài 1. Viết chương trình:
-Nhập vào sốnguyên N.
-Xuất ra màn hình các sốchẵn từ1 đến N.
-Xuất ra màn hình các số lẻ từ 1 đến N.
Bài 2. Viết chương trình:
-Nhập vào sốnguyên N.For
2-Xuất ra màn hình tổng các số từ 1 đến N.
-Xuất ra màn hình tích các sốtừ1 đến N.
Bài 3. Viết chương trình:
-Nhập vào sốnguyên N.
-Tính tổng các số lẻ từ 1 đến N và xuất quả ra màn hình.
-Thực hiện đếm xem có bao nhiêu số lẻ từ 1 đến N và xuất kết quảra màn hình.
Bài 4. Viết chương trình:
-Nhập vào số nguyên N.
-Tính tích các sốchẵn từ1 đến N và xuất kết quảra màn hình.
-Thực hiện đếm xem có bao nhiêu số chẵn từ 1 đến N và xuất kết quả ra màn hình.
bài 1:
uses crt;
var n,i,j:longint;
begin
clrscr;
write(‘Nhap n:’);
readln(n);
write(‘so chan tu 1->n la:’);
for i:=1 to n do
if i mod 2=0 then write(i,’ ‘);
writeln;
write(‘so le tu 1->n la:’);
for j:=1 to n do
if j mod 2<>0 then write(j,’ ‘);
readln;
end.
bài 2:
uses crt;
var n,i,j,s,s1:longint;
begin
clrscr;
write(‘Nhap n:’);
readln(n);
s1:=1;
s:=0;
write(‘tong cac so tu 1->n la:’);
for i:=1 to n do s:=s+i;
write(s);
writeln;
write(‘tich cac so tu 1->n la:’);
for j:=1 to n do s1:=s1*j;
write(s1);
readln;
end.
bài 3:
uses crt;
var n,i,j,s,s1:longint;
begin
clrscr;
write(‘Nhap n:’);
readln(n);
s1:=0;
s:=0;
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
write(‘tong cac so le tu 1->n la:’,s);
writeln;
for j:=1 to n do
if j mod 2<>0 then inc(s1);
write(‘co tat ca ‘,s1,’ so le’);
readln;
end.
bài 4:
uses crt;
var n,i,j,s,s1:longint;
begin
clrscr;
write(‘Nhap n:’);
readln(n);
s1:=0;
s:=1;
for i:=1 to n do
if i mod 2=0 then s:=s*i;
write(‘tich cac so chan tu 1->n la:’,s);
writeln;
for j:=1 to n do
if j mod 2=0 then inc(s1);
write(‘co tat ca ‘,s1,’ so chan’);
readln;
end.
uses crt;
var n,i,j:longint;
begin
clrscr;
write(‘Nhap n:’);
readln(n);
write(‘so chan tu 1->n la:’);
for i:=1 to n do
if i mod 2=0 then write(i,’ ‘);
writeln;
write(‘so le tu 1->n la:’);
for j:=1 to n do
if j mod 2<>0 then write(j,’ ‘);
readl;
end.
bài 2:
uses crt;ar n,i,j,s,s1:longint;
begin
clscr;
rite(‘Nhap n:’);
radln(n);
s1:=1;
s:=0;
write(‘tong cac so tu 1->n la:’);
fr i:=1 to n do s:=s+i;
write(s);
writeln;
rite(‘tich các số từ 1->n la:’);
for j:=1 to n do s1:=s1*j;
wrte(s1);
readln;
end.
bài 3:
uses crt;
var n,i,j,s,s1:longint;
begin
clrscr;
write(‘Nhập n:’);
radln(n);
s1:=0;
s:=0;
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
write’tong cac so le tu 1->n la:’,s);
writeln;
or j:=1 to n do
i j mod 2<>0 then inc(s1);
write(‘co tat ca ‘,s1,’ so le’);
rdln;
end.
bài 4:
ses crt;
var n,i,,s,s1:longint;
begin
clrscr;
ite(‘Nhap n:’);
readln(n);
s1:=0;
s:=1;
for i:=1 to n do
f i mod 2=0 then s:=s*i;
write(‘tích các số chẵn từ 1->n là:’,s);
writel;
for j:=1 to n do
if j mod 2=0 then inc(s1);
wite(‘có tất cả ‘,s1,’ số chẵn’);
readln;
end.