Pascal2007.MyForum.ro

LoveKey · Trimis: 06/03/2007 20:59 Titlul subiectului: Varianta 3

III-1

Type matrice=array[1..23,1..23] of integer;
var a :matrice;
n,i,j:integer;
begin
write('n=');read(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=1;
if ((i<j)and(i+j>n+1)) then a[i,j]:=2;
if (i>j) and (i+j<n+1) then a[i,j]:=2;
end;
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j],' ');
writeln; writeln;
end;
end.
_________________
Orice e posibil prin vointa!

LoveKey · Trimis: 06/03/2007 21:22 Titlul subiectului:

III-2

program p2;
var n:longint;
a,b,nrcifi,nrciff:byte;
function s1(n:longint):byte;
var nr:byte;
begin
nr:=1; n:=n div 10;
while n<>0 do begin
nr:=nr+1;
n:=n div 10;
end;
s1:=nr;
end;
procedure s2(k:byte; Var n:longint);
Var x,zec:longint;
c:byte;
begin
x:=0; zec:=1;
while n<>0 do begin
c:=n mod 10;
x:=c*zec+x;
if c=k then begin
zec:=zec*10;
x:=c*zec+x;
end;
n:=n div 10;
zec:=zec*10;
end;
n:=x;
end;
begin
write('n='); readln(n);
write('a='); readln(a);
write('b='); readln(b);
nrcifi:=s1(n);
s2(a,n); s2(b,n);
nrciff:=s1(n);
writeln(nrcifi-(nrciff-nrcifi));
end.
_________________
Orice e posibil prin vointa!