Массив и матрица Опции

[@WARlock@]

Народ поможите решить задачки.

Задача 1) Реализовать алгоритм решения задачи на преобразование десятичного числа n в число m. Вводимое пользователем число n должно быть integer или logint. Программа должна работать правильно для чисел, содержащих не менее 8 цифр. В случае невозможности формирования числа m на основе числа n выводить соответствующее сообщение.
- Число m состоит из нечетных цифр числа n, стоящих на позициях, номера которых четны, считая с начала.


Задача 2) Составить программу решения (задачи 1(смотреть выше)), в которой n и m имеют строковый тип данных (string).


Задача 3) По условию (задачи 1(смотреть выше)) составить программу вывода на экран по данному числу n типа string матрицу SxS, (S – кол-во цифр в числе m), состоит из нулей и цифр числа m которые расположены:
- В последней строке справа на лево.

Сообщение отредактировано: @WARlock@ - 24.01.2006 14:17

[@WARlock@]

Ну я эту задачу делал таким образом, четные номера найти могу, а вот дальше не получается :

program lab; uses crt;
var n,m,b:string;
i,k,x:integer;
begin clrscr;
writeln('Введите  n:');readln(n);
m:='';
for i:=1 to length(n) do begin
if not odd(i) then begin
val(n[i],x,k);
str(x,b);
m:=concat(m,b);
end;end;
writeln;
writeln;
writeln('n=',n,' m=',m);
readln;
end.

Сообщение отредактировано: volvo - 5.11.2006 20:53