Question

Mấy bạn giải câu b, c, d dùm mik nha đừng để ý mấy câu khác😊😊😘😘😘

Answer 1

c)

uses crt;

var i, n: integer;

a: array [1..100] of integer;

begin

write(' nhap n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

writeln(a[i]);

readln

end.

d)

uses crt;

var i, le, chan: integer;

a: array[1..20] of integer;

begin

for i:=1 to 20 do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to 20 do

if a[i] mod 2 <> 0 then

writeln((a[i]) ,' la so le');

for i:=1 to 20 do

if a[i] mod 2 = 0 then

writeln((a[i]) ,' la so chan');

readln

end.

Answer 2

b)

uses crt;

var n,i:word;

T:longint;

begin

clrscr;

write('nhap n:');readln(n);

T:=1;

for i:=2 to n do T:=T*(1+i);

write('T = ',T);

readln;

end.