Перевод в двои4ный код(Packal -> C++)

[KOSS.AB]

помогите плиз!


1)
var m:array [1..100] of integer;
a,b,max,n,i:integer;
aa,c,p:array [1..3,1..3] of integer;
j:integer;
begin
writeln('BBEDITE KOL-BO 4ISEL MASSIBA');
readln(n);
writeln('BBEDITE 4ISLA MASSIBA');
for i:=1 to n do
readln(m[i]);
clrscr;
max:=-32000;
writeln('BBEDITE 4ISLO a=');
readln(a);
writeln('BBEDITE 4ISLO b=');
readln(b);
for i:=1 to n do
if (m[i]<=b) and (m[i]>=a) and (m[i]>max) then max:=m[i];
writeln('MASSIB');
for i:=1 to n do
write(m[i]:5);
writeln;
writeln('max=',max);



writeln('BBEDITE MATRICY aa');
begin
for i:=1 to 3 do
for j:=1 to 3 do
readln(aa[i,j]);

writeln('MATRICA aa');
for i:=1 to 3 do begin
for j:=1 to 3 do
write(aa[i,j]:6);
writeln;
end;
for i:=1 to 3 do
for j:=1 to 3 do
p[i,j]:=2*aa[i,j]+1;
writeln('MATRICA c');
for i:=1 to 3 do begin
for j:=1 to 3 do
c[i,j]:=p[j,i];
end;
for i:=1 to 3 do begin
for j:=1 to 3 do
write(c[i,j]:6);
writeln;
end;
end;
end.





2)

var s:string;
i:integer;
begin
writeln('BBEDITE STROKY');
readln(s);
i:=1;
while i<=length(s) do begin
case s[i] of
'0': begin delete(s,i,1);
insert('NULL',s,i);
end;
'1': begin delete(s,i,1);
insert('ODIN',s,i);
end;
'2': begin delete(s,i,1);
insert('DVA',s,i);;
end;
'3': begin delete(s,i,1);
insert('TRI',s,i);;
end;
'4': begin delete(s,i,1);
insert('CHETbIRE',s,i);
end;
'5': begin delete(s,i,1);
insert('PYATb',s,i);
end;
'6': begin delete(s,i,1);
insert('SHECTb',s,i);
end;
'7': begin delete(s,i,1);
insert('CEMb',s,i);
end;
'8': begin delete(s,i,1);
insert('BOCEMb',s,i);
end;
'9': begin delete(s,i,1);
insert('DEBYATb',s,i);
end;
end;
inc(i);end;
writeln(s);
end.




3)
Var S,k,M,N,i,F:integer;

function FAC(N: integer):integer;
begin

F:=1;I:=1;
while I<=N do begin
F:=F*I;
I:=I+1;
end;
fac:=f;
end;
begin
write('BBEDITE KO/\I/I4ECTBO 4I/ICE/\=');
readln(N);
S:=0;

for k:=1 to N do begin
S:=(Fac(k) +S);

end;
writeln('SUMMA FAKTOPI/IA/\A=',S);

end.



вот все эти зада4и надо перевести с паскаля на С++

Помогите кто 4ем может!

[xtTalisman]

Могу взяться.
Почта xtTalisman@bk.ru
icq 56три80семь45семь

[helpprogram]

Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.

[semenovmixan]

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru

[samec]

Стучите в асю 111115656, обсудим.

[KOSS.AB]

СПС всем! тема закрыта! :-)