1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên.
2. In ra màn hình dãy số từ phần tử n–>1.
Giúp mình nha.

Question

1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n-->1. Giúp mình nha.

chauhoangmy · Answer

1/program BTH;
uses crt;
var a,b:longint;

begin
clrscr;
write(‘Nhap so n: ‘); readln(a);
for b:=1 to a do if b mod 2 = 0 then write(b,’ ‘);
readln;
end.

2/

program BTH;
uses crt;
var a,b:longint;
begin
clrscr;
write(‘Nhap so n: ‘); readln(a);
for b:=a downto 1 do write(b,’ ‘);
readln
end.

ngockhue · Answer

1. program Min;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do if i mod 2 = 0 then write(i:4);
readln
end.

2. program Min;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=n downto 1 do write(i:4);
readln
end.

0 bình luận về “1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n–>1. Giúp mình nha.”