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.
câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn
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.
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.
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
Program HOC24;
var i,n,k,d: integer;
a: array[1..1000] of integer;
begin
readln(n,k);
for i:=1 to n do read(a[i]); readln;
d:=0;
for i:=1 to n do if a[i]=k then d:=d+1;
write(d);
readln
end.