Developing.ru

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

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.

Первое - примерно так:
[code]
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;
[/code]
Вторую - еще проще.
[code]
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.
[/code]
То есть копируем первые два символа (день) и последние два (две последние цифры года). Две первые цифры года придумываем сами, я взял 19... То есть получится у нас 12 июня 1905 года

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

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

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

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

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

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

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


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

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