Как это делать??

[Alex[GetDown}]

№1.Составить блок-схему алгоритма и две программы (одну с операторами присваивания, перехода; вторую с использованием циклов) число m, составлено из цифр числа n так, что каждая цифра числа n, стоящая на позиции с нечетным номером, меняется местами с цифрой, стоящей на следующей позиции, счет идет с начала.
№2.Составить программу решения задачи предыдущего задания (№1), в котором n и m имеют строковый тип (string).
№3.реализовать алгоритм в виде блок-схемы и составить программу вывода на экран матрицы nХn, (n вводится пользователем), элементы состоят из нулей и единиц, причем единицы находятся ниже побочной диагонали.
№4.по условию задачи №1 составить программу вывода на экран по данному числу n типа string матрицу sХs, (s – количество цифр в числе m), состоящую из нулей и цифр числа m, которые расположены в последней строке слева направо.

[Вадим Мошев]

Есть несколько способов. Если вы не хотите решать самостоятельно, можете обратиться к кому-нибудь из этой темы http://www.programmersforum.ru/showthread.php?t=206588

Но вам потребуются деньги, чтобы оплатить работу.

[Mad_Cat]

2)

 var n,m:string;
 i:byte;
 b:char;
 begin
write('n=');
readln(n);
m:=n;
i:=1;
while i<=Length(m)-1 do
begin
b:=m[i];
m[i]:=m[i+1];
m[i+1]:=b;
i:=i+2;
end;
writeln('m=',m);
readln;
end.

3)

 var a:array[1..255,1..255] of byte;
 i,j,n:byte;
begin
write('n=');
readln(n);
for i := 1 to n  do
  begin
  for j := 1 to n  do begin
   if i>(n-j+1) then a[i,j]:=1
   else a[i,j]:=0;
   write(a[i,j]:2)
  end;
  writeln;
  end;
  readln;
end.

4)

 var n:string;
 i:byte;
 j:byte;
 var a:array [1..255,1..255]of byte;
 begin
write('n=');
readln(n);
for I := 1 to Length(n) do
  for J := 1 to length(n)-1 do
  a[i,j]:=0;
for I := 1 to Length(n) do
a[length(n),i]:=ord(n[i])-ord('0');

for I := 1 to length(n)  do  begin
for J := 1 to length(n)  do
    write(a[i,j]:2);
    writeln;
end;
readln;
end.