Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Tường Vy

1. Viết chương trình nhập vào 2 số nguyên dương a,b (a<b). Tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a --> b

2. Viết chương trình nhập vào số nguyên dương n (n được nhập tùy ý) xuất ra màn hình các số nguyên lẻ từ 5 --> n (n>=5)

3. Viết chương trình nhập vào 2 số nguyên dương m,n (m<n). Tính và đưa ra màn hình tích của các số nguyên chẵn trong phạm vi từ m --> n

4. Viết chương trình nhập vào 2 số nguyên dương x,y (x<y). Xuất ra màn hình dãy số nguyên dương từ x --> y và y --> x

Nguyễn Lê Phước Thịnh
9 tháng 1 2020 lúc 19:14

1:

uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.

2:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if (n>=5) then
begin
writeln('cac so nguyen le trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap n lon hon hoac bang 5');
readln;
end.

3:

uses crt;
var m,n,i:integer;
s:longint;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if (m>0) and (n>0) then
begin
if m<n then
begin
s:=1;
for i:=m to n do
if i mod 2=0 then s:=s*i;
writeln('tich cac so chan trong pham vi tu ',m,' toi ',n,' la: ',s);
end
else writeln('vui long nhap m nho hon n');
end
else writeln('vui long nhap hai so duong');
readln;
end.

4:

uses crt;
var x,y,i,j:integer;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>0) and (y>0) then
begin
if x<y then
begin
writeln('day cac so nguyen duong trong pham vi tu ',x,' toi ',y,' la:');
for i:=x to y do
write(i:4);
writeln;
writeln('day cac so nguyen duong trong pham vi tu ',y,' toi ',x,' la:');
for j:=y downto x do
write(j:4);
end
else writeln('vui long nhap x nho hon y');
end
else writeln('vui long nhap hai so duong');
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
09 Lê Quang HIếu
Xem chi tiết
Thùy An
Xem chi tiết
Huyền Trang
Xem chi tiết
pham thuy vy
Xem chi tiết
Tung Hoang
Xem chi tiết
Phạm Tường Vy
Xem chi tiết
Giang Vũ
Xem chi tiết
Bin Nguyễn
Xem chi tiết
Tien Nguyen
Xem chi tiết