ПОМОГИТЕ ПОЖАЛУСТА!! ОЧЕНЬ СРОЧНО!!

[СтрелоК]

ЛЮДИ!!!!!!!! НАПОМОЩЬ!!!!!!!!! К ЭКЗАМЕНУ НЕ ДОПУСКАЮТ!!!!! НАДО СРОЧНО СДЕЛАТЬ ЭТИ ЗАДАЧИ!!!! ПЛИЗ!!!!
1.Найти произведение последних L положительных элементов в массиве A={a}

2.Написать программу, преобразующую строку, содержащую дату в формате мм/дд/уу к форме "день месяц год". Например 12/14/60 в 12 декабря 1960

3.Даны три множества х1={1,2,3..20}, х2={10,20,30..30}, х3={1,3,5..21}.
Сформировать множество У=(х1 х2)(х1 х3)(х2 х3) из которого выделить подмножество У1 чисел, делящихся на 4 без остатка.
Вывести на печать мн-ва У и У1. Исходные ввести с клавиатуры.

4.(эту задачу я сделал, но если у кого есть лишняя минутка, то сделайте и ее. на всякий случай).
Пусть последовательность состоит только из цифр. Определить, упорядоченны ли они по возрастанию.


ЗЫ: Все массивы N<=20 (я все переписывал с листа с заданиями, и если есть какието вопросы, то увы, мне неукого уточнить(( сделайте как понимаете).
кстати, огромная просьба, если не сложно делать небольшие пометки.

ЛЮДИ!!! ЭТО ОЧЕНЬ СРОЧНО!! МОГУТ ИЗ УНИВЕРА ВЫГНАТЬ МЕНЯ!!! СПАСИТЕ!! МНЕ В СУББОТУ УТРОМ НАДО ЭТО ОТНЕСТИ ПРЕПОДУ!!! ПОМОГИТЕ ПОЖАЛУСТА!!!

[СтрелоК]

Добрые люди! помогите ради бога! вот мое мыло на всякий случай, если что, отвечать можно туда lord-elessar@yandex.ru

[Хыиуду]

Первое - примерно так:

Код: Выделить всё

mul:=1;
l:=сколько надо
for i :=length(a) downto 1 do
if a[i]>0 then begin
  mul:=mul*a[i];
  l:=l-1;
  if l=0 then break
end;

Вторую - еще проще.

Код: Выделить всё

var months:array[1..12] of string
begin
  months[1]:='января';
  months[2]:='февраля';
...
  months[12]:='декабря';
  s:='12/06/05';
  x:=strtoint(copy(s,4,2)); {вытаскиваем из строки 2 символа, начиная с 4 - собственно 06, номер месяца, и преобразуем его в число}
  result:=copy(s,1,2)+' '+months[x]+' 19'+copy(s,7,2);
end.

То есть копируем первые два символа (день) и последние два (две последние цифры года). Две первые цифры года придумываем сами, я взял 19... То есть получится у нас 12 июня 1905 года

По 3 задаче - непонятно, каким образом формируется множество. Если нет никакой дополнительной информации - я бы не сделал.

4 - вообще в трех строчках
result:=true;
for i:=1 to length(mas)-1:
if mas<=mas[i-1] then result:=false

[СтрелоК]

Хыиуду, спосибо тебе большое. а то я с первой задачей жутко тупил. вроде все ясно, а никак не мог отладить. А в тетей там по ходу дела именно в моем варианте не пропечатались знака между Х-ами(( ладно. пожелай мне удачи сдать все это завтра) Спосибо тебе еще раз! Ты мне очень помог!