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.
program bt;
uses crt;
var n,i,j:word;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n+1 do a[i]:=0;
a[1]:=1;
for i:=0 to n do
begin
for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];
for j:=1 to i+1 do write(a[j]:3);
writeln;
end;
readln;
end.
![]()
var
i,j,n,k,x,vt:longint;
s,r,s1,s2:ansistring;
A:array[0..101] of boolean;
B:array[0..101] of longint;
BEGIN
assign(input,'gach.inp'); reset(input);
assign(output,'gach.out'); rewrite(output);
read(n,k);
for i:=1 to 101 do
A[i]:=true;
A[1]:=false;
for i:=1 to trunc(sqrt(101)) do
if (A[i] = true) then
for j:=2 to 101 div i do
A[i*j]:=false;
vt:=0;
for i:=1 to 101 do
if (A[i] =true) then
begin
inc(vt);
B[vt]:=i;
end;
for i:=1 to n do
begin
str(B[i],r);
s:=s+r;
end;
x:=length(s)-k-1;
vt:=1;
while (x >= 0) do
begin
for j:=vt to length(s)-x do
if (s[vt] > s[j]) then vt:=j;
s1:=s1+s[vt];
dec(x);
inc(vt);
end;
x:=length(s)-k-1;
vt:=1;
while (x >= 0) do
begin
for j:=vt to length(s)-x do
if (s[vt] < s[j]) then vt:=j;
s2:=s2+s[vt];
dec(x);
inc(vt);
end;
writeln(s);
writeln(s1);
writeln(s2);
close(input);
close(output);
END.
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt
Kết quả in ra màn hình là x=9,y=7
Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.
bây bi sắck:))))
Câu hỏi bị thiếu nội dung rồi bạn kiểm tra lại nhé