uses wincrt;
var
tr:array[0..10,0..10] of integer;
b,c:integer;
begin
for b:=0 to 10 do tr[b,0]:=1;
for b:=1 to 10 do
for c:=1 to b do tr[b,c]:=tr[b-1,c]+tr[b-1,c-1];
clrscr;
for b:=0 to 10 do
for c:=0 to b do
begin
gotoxy(36+c*6-3*b+1,2*b+1);
write(tr[b,c]:3,' ');
end;
end.
........................................................................................
uses wincrt;
var
i,j,s : integer;
begin
s:=10;
for i:=1 to 5 do
begin
writeln;
write(' ':s);
for j:=1 to i do
write(j:2);
for j:=(i-1) downto 1 do
write(j:2);
s:=s-2;
end;
end.
uses wincrt;
var
j,i: integer;
begin
write(' ');
for i:= 1 to 44 do
write('-');
writeln;
for i:= 1 to 10 do
begin
write('|':3);
for j:= 1 to 10 do
write(i*j : 4);
write('|':3);
writeln;
end;
write(' ');
for i:= 1 to 44 do
write('-');
end.
........................................................................................
uses wincrt;
var
f1,f2,f3,i,cnt,a,n : integer;
begin
writeln('Enter Number Of N');
readln(n);
for i:=1 to n do
begin
if (i<=n) then
begin
Writeln('Enter ',i,' Number');
readln(a);
end;
f1:=0;
f2:=1;
f3:=1;
while (f3<a) do
begin
f1:=f2;
f2:=f3;
f3:=f1+f2;
end;
if (f3=a) then
cnt:=cnt+1;
end;
writeln('Number Of Fibo''s Number Is :',cnt);
end.
uses wincrt;
var
i,a,n,j,cnt,k : integer;
flag : boolean;
begin
writeln('Enter Number For N');
readln(n);
cnt:=0;
for i:= 1 to n do
begin
if i<=n then
begin
writeln('enter ',i,' number');
readln(a);
if a=1 then
begin
writeln('number 1 is not prime and complete therefore enter an other number');
readln(a);
i:=i+1
end;
flag:=true;
k:=0;
j:=2;
end;
while (j<=a div 2) and (k=0) do
begin
if (a mod j =0) then
k:=1;
j:=j+1;
end;
if (k=0) then
cnt:=cnt+1;
end;
writeln('number of prime number is :',cnt)
end.
........................................................................................
uses wincrt;
var
f1,f2,f3,i,cntf,cnta,a,n,j,k : integer;
begin
writeln('Enter Number Of Numbers');
readln(n);
for i:=1 to n do
begin
if (i<=n) then
begin
Writeln('Enter ',i,' Number');
readln(a);
if a=1 then
begin
writeln('number 1 is not prime and complete therefore enter an other number.');
writeln('number 1 is count for Fibo series!');
readln(a);
i:=i+1;
cntf:=cntf+1;
end;
end;
k:=0; {flag of prime number}
j:=2;
f1:=0; {First Member of Fibo}
f2:=1; {second Member of Fibo}
f3:=1;
while (f3<a) do
{F} begin
{I} f1:=f2;
{B} f2:=f3;
{O} f3:=f1+f2;
end;
if (f3=a) then
cntf:=cntf+1;
while (j<=a div 2) and (k=0) do
{P} begin
{R} if (a mod j =0) then
{I} k:=1;
{M} j:=j+1;
{E} end;
if (k=0) then
cnta:=cnta+1;
end;
writeln('Number Of Fibo''s Number Is :',cntf);
writeln('Number Of Prime Number is :',cnta);
end.
uses wincrt;
var
b:array[1..5,1..5]of integer;
a:array[1..5,1..5]of integer;
i,j:integer;
t:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
writeln('a[',i,j,']');
readln(a[i,j]);
b[i,j]:=a[i,j];
end;
for i:=1 to 5 do
for j:=1 to 5 do
if j>i then
begin
t:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=t;
end;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(b[i,j]:4);
if (i=1) and (j=5) then
write(' ')
else if (i=2) and (j=5) then
write(' ')
else if (i=3) and (j=5) then
write(' =>')
else if (i=4) and (j=5) then
write(' ')
else if (i=5) and (j=5) then
write(' ');
end;
for j:=1 to 5 do
write(a[i,j]:4);
writeln;
end;
end.
........................................................................................
uses wincrt;
var
a:array[1..20]of integer;
i,n:integer;
begin
writeln('please enter a number');
readln(n);
i:=1;
while n>0 do
begin
a[i]:=n mod 2;
i:=i+1;
n:=n div 2;
end;
if n<=0 then
begin
i:=i-1;
while i>0 do
begin
write(a[i]);
i:=i-1;
end;
end;
end.
........................................................................................
uses wincrt;
var
n,r,m,p:integer;
begin
p:=1;
readln(n);
m:=0;
while n>0 do
begin
r:=n mod 10;
n:=n div 10;
if r>0 then
begin
p:=p*10;
m:=m+p*r;
end;
end;
write(m div 10);
end.
uses wincrt;
var
n:integer;
begin
readln(n);
while n>0 do
begin
write(n mod 10);
n:=n div 10
end;
end.
........................................................................................uses wincrt;
var
a:array[1..3,1..3]of integer;
i,j:integer;
t:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('a[',i,j,']');
readln(a[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
if j>i then
begin
t:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=t;
end;
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(a[i,j]:4);
writeln;
end;
end.
