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.
uses crt;
var n,n1,s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
n1:=2*n+1;
s:=((n1 - 1)/2+1)*(n1 + 1)/2;
write(s:0:0);
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.
Bộ test số 2 số 7 ở sau số 789 sẽ tạo ra số lớn hơn nó nhưng sao lại để số 7 ở đầu tiên nhỉ. (789756119123)
sắp xếp lại mảng rồi in ra màn hình a[1]a[2]a[3]a[n] làdc
Chương trình có dấu cách giữa các số:
Program Doi_thap_phan_ra_nhi_phan;
Var
S,r:integer;
N,T:String;
f:text;
Begin
assign(f,'Nhiphan.INP');
reset(f);
Readln(f,S);
N:=' ';
Repeat
r:= S Mod 2;
Str(r, T);
N:=T + ' ' + N;
S:= S div 2
Until S = 0;
assign(f,'Nhiphan.OUT');
rewrite(f);
write(f,N);
close(f);
End.
uses crt;
var n,i,j:integer;
d:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
i:=1;
repeat
d[i]:=n mod 2;
n:=n div 2;
inc(i);
until n=0;
write('so nhi phan la: ');
for j:=i-1 downto 1 do
write(d[j]);
readln;
end.
Bài bạn có 1 số lỗi về cú pháp. Và đề không yêu cầu sử dụng tệp .
VD lỗi : if uoc:=2 then S:=S+A;
Nhưng thuật toán vậy là đúng rồi. Mình sẽ tặng bạn GP 
Cách 2:
uses crt;
var f:array[1..100]of integer;
n,i,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
f[1]:=1;
f[2]:=1;
i:=2;
repeat
i:=i+1;
f[i]:=f[i-1]+f[i-2];
until i=n;
t:=0;
for i:=1 to n do
if f[i]>1 then
begin
kt:=0;
for j:=2 to f[i]-1 do
if f[i] mod j=0 then kt:=1;
if kt=0 then t:=t+f[i];
end;
writeln(t);
readln;
end.
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
Program hotrotinhoc;
var a,b,max,x,d,i,y: longint;
n,k,s: string;
begin
readln(n); s:=n;
while length(n)<>1 do
begini:=i+1;
k:=k+
s[i];
val(k,x);
delete(n,1,1);
val(n,y);
d:=x+y;
if d>max then
begin
max:=y+x;
a:=x;
b:=y;
end;
end;
write(a,' ',b);
readln
end.