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.
!!!!!!!!!
const
fi='botri.inp';
fo='botri.out';
var
f:text;
i,n,t:integer;
procedure inp;
begin
assign(f,fi);
reset(f);
read(F,n);
closE(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=1;
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2;
write(f,t);
closE(F);
end;
BEGIN
INP;
OUT;
END.
tại sao lại có :
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2
vậy bạn?
vd:
Program chuongtrinhnhapmang;
var n:integer;
begin
write('Nhap n='); readln(n);
end;
Những từ in đậm là từ khóa
in nghiêng là tên chương trình
Program là từ khóa;
CT_dau_tien là tên;
begin là từ khóa;
writeln là từ khóa;
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
const
fi='botri.inp';
fo='botri.out';
var
f:text;
i,n,t:integer;
procedure inp;
begin
assign(f,fi);
reset(f);
read(F,n);
closE(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=1;
for i:=n-1 downto 1 do
t:=t*i;
t:=t*2;
write(f,t);
closE(F);
end;
BEGIN
INP;
OUT;
END.
bạn có thể giải thích ct giúp mk đc k?