Задача про ребус и записку... Опции

[Nesy]

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

1) В записке слова зашифрованы – каждое из них записано наоборот. Расшифровать сообщение.

2) Разгадайте ребус АВС = АВ + ВС + СА

3) Из данного списка спортсменов распечатать данные о тех из них, кто занимается плаванием. Указать возраст, сколько лет они занимаются спортом.

4) Опишите матрицу A размером 100 x 200 с элементами типа Char. Заполните ее путем обращения к процедуре: FillChar(A, 20000, ‘X’).

5) Составьте программу размещения в ДРП, строка за строкой, треугольной матрицы размером N, в i-той строке которой i компонентов типа Word, i = 1,2,3,..,N. Занесите в элемент массива MemW, соответствующий элементу A^[1]^[1], значение «1», а в следующие девять – значения 2,3,…,9. Выведите элементы первых трех строк матрицы и объясните полученную картину.

6) Составить программу, которая вставляет в список L новый элемент F перед первым вхождением элемента Е, если Е входит в L.

Заранее всех благодарю!

[Altair]

как "перевернуть строку"?

ну вот:

Код

var
s,f:string;
i,j:byte;
begin
readln(s); j:=1;
for i:=length(s) downto 1 do
begin
 f[j]:=s[i];
 inc(j);
end;
f[0]:=chr(j);
writeln(f);
end.

p.s.
извините, в FAQ'e этого действительно нет. мне казалось что есть...
теперь добавил... в FAQ.

Сообщение отредактировано: Oleg_Z - 17.01.2005 15:00