ЛЮДИ!!!!!!!! НАПОМОЩЬ!!!!!!!!! К ЭКЗАМЕНУ НЕ ДОПУСКАЮТ!!!!! НАДО СРОЧНО СДЕЛАТЬ ЭТИ ЗАДАЧИ!!!! ПЛИЗ!!!!
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 (я все переписывал с листа с заданиями, и если есть какието вопросы, то увы, мне неукого уточнить(( сделайте как понимаете).
кстати, огромная просьба, если не сложно делать небольшие пометки.
ЛЮДИ!!! ЭТО ОЧЕНЬ СРОЧНО!! МОГУТ ИЗ УНИВЕРА ВЫГНАТЬ МЕНЯ!!! СПАСИТЕ!! МНЕ В СУББОТУ УТРОМ НАДО ЭТО ОТНЕСТИ ПРЕПОДУ!!! ПОМОГИТЕ ПОЖАЛУСТА!!!
ПОМОГИТЕ ПОЖАЛУСТА!! ОЧЕНЬ СРОЧНО!!
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Добрые люди! помогите ради бога! вот мое мыло на всякий случай, если что, отвечать можно туда lord-elessar@yandex.ru
Первое - примерно так:
Вторую - еще проще.
То есть копируем первые два символа (день) и последние два (две последние цифры года). Две первые цифры года придумываем сами, я взял 19... То есть получится у нас 12 июня 1905 года
По 3 задаче - непонятно, каким образом формируется множество. Если нет никакой дополнительной информации - я бы не сделал.
4 - вообще в трех строчках
result:=true;
for i:=1 to length(mas)-1:
if mas<=mas[i-1] then result:=false
Код: Выделить всё
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.
По 3 задаче - непонятно, каким образом формируется множество. Если нет никакой дополнительной информации - я бы не сделал.
4 - вообще в трех строчках
result:=true;
for i:=1 to length(mas)-1:
if mas<=mas[i-1] then result:=false
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Хыиуду, спосибо тебе большое. а то я с первой задачей жутко тупил. вроде все ясно, а никак не мог отладить. А в тетей там по ходу дела именно в моем варианте не пропечатались знака между Х-ами(( ладно. пожелай мне удачи сдать все это завтра) Спосибо тебе еще раз! Ты мне очень помог!