Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Link phần mềm học tiếng anh trực tuyến và hiệu quả đây nhé mọi người:
https://iostudy.net/ref/132215
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.
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.
