Помогите с задачами на паскале срочно Опции

[lamaksi]

Народ помогите стучите в асю <cut by Lapp>

[Unconnected]

Может, ещё и условие попросить? Если что-то нужно, переименуй тему и пиши условия сюда.

[lamaksi]

Задача Рігзі. В першому півріччі навчального року заняття проходять з 1 по 8 та з 10 по 17 тижні (дев'ятий тиждень - канікули). В розкладі одного з класів п'ять днів на тиждень (від понеділка до п'ятниці) відбувається по шість уроків щодня, всього 480 уроків за півріччя. Всі ці уроки перенумеровані. Складіть програму, що визначає, на якому тижні та в який день тижня відбувається урок з даним номером N.

Задача Зесопсі. Позначимо через Рі і-те просте число (Р1=2, Р2=3, Р3=5 тощо). Для даного числа п розглянемо вираз: Р1 / Р2 / РЗ / ... / Рп. Напишіть програму, яка б підраховувала скільки різних раціональних чисел можна отримати, розставляючи в даному виразі дужки Напр., якщо п=4, то таких чисел буде теж 4: (((2/3)/5)/7 = 2/105, 2/(3/(5/7)) = 10/21, (2/3)/(5/7)=14/15 та 2/((3/5)/7) = 70/3. Технічні умови. Програма ЗесопсІ читає з клавіатури ціле число п (від 2 до 100) і виводить н а екран кількість можливих раціональних чисел

Задача Тпіго". В класі навчається 0 (1<=0<=25) дівчат та Н (0 <= Н <= 25) хлопців (всього й+Н <= 35). Перенумеруємо дівчат від 1 до й, а хлопців (якщо вони є в класі) від й+1 до й+Н. В класі утворилося К дружніх компаній (в кожній з яких не менше двох осіб), які не мають таємниць один від одного, причому всі друзі дівчат дізнаються про новину через дві години після того, як дізналась вона, а друзі хлопців через п'ять (незалежно від часу дня та ночі). Одна особа може входити до складу різних компаній. Дочка вчительки літератури (її номер в класі 1) зовсім випадково о 13 годині першого грудня дізналася про тему контрольного твору. Якого числа та о котрій годині весь клас вперше буде знати цю тему?

Ну кто порвет звиняйте не перевел плисс поскорее

[Unconnected]

Это к тем, кто украинский знает..

[lamaksi]

я ща переведу ты сделаеш?

Добавлено через 2 мин.
В первом полугодии учебного года занятия проходят с 1 по 8 и с 10 по 17 недели (девятая неделя - каникулы). В расписании одного из классов пять дней на неделю (от понедельника к пятнице) происходит по шесть уроков каждый день, всего 480 уроков за полугодие. Все эти уроки перенумерованы. Составьте программу, которая определяет, на котором недели и в какой день недели происходит урок с данным номером N.

Обозначим через Рі і-те простое число (Р1=2, Р2=3, Р3=5 и т.п.). Для данного числа п рассмотрим выражение: Р1 / Р2 / РЗ / ... / Рп. Напишите программу, которая бы подсчитывала сколько разных рациональных чисел можно получить, расставляя в данном выражении дужки Напр., если п=4, то таких чисел будет тоже 4: (((2/3)/5)/7 = 2/105, 2/(3/(5/7)) = 10/21, (2/3)/(5/7)=14/15 и 2/((3/5)/7) = 70/3. Технические условия. Программа Зесопсі читает из клавиатуры целое число п (от 2 до 100) и выводит н а экран количество возможных рациональных чисел

Задача Тпіго". В классе учится 0 (1<=0<=25) девчат и Н (0 <= Н <= 25) ребят (всего и+Н <= 35). Перенумеруем девчат от 1 к и, а ребят (если они являются в классе) от и+1 к и+Н. В классе образовалось К дружеских компаний (в любой из которых не меньшее двух лиц), которые не имеют тайн один от другого, причем все друзья девчат узнают о новости через два часа после того, как узнала она, а друзья ребят через пять (независимо от времени дня и ночи). Одна лицо может входить в состав разных компаний. Дочь учительницы литературы (ее номер в классе 1) совсем случайно в 13 часу первого декабря узнала о теме контрольного произведения. Какого числа и в котором часе весь класс впервые будет знать эту тему?

[Unconnected]

Я сделал 1ю, с использованием трёхмерного массива, но она "немного" некорректно работает Завтра днём буду исправлять, сейчас поздно уже

[Unconnected]

const a=16;b=5;c=6;
var mas1:array[1..a,1..b,1..c] of integer;
    d,e,f,x:integer;
begin
  for d:=1 to a do
      for e:=1 to b do
        for f:=1 to c do
        begin
          mas1[d,e,f]:=x;
          inc(x);
        end;
  writeln('Vvedite nomer uroka dlya poiska');
  readln(x);
  for d:=1 to a do
    for e:=1 to b do
      for f:=1 to c do
      begin
        if mas1[d,e,f]=x then begin
                                writeln('Urok #',x,' bil na nedele #',d,' v den #',f);
                                break;
                              end;
      end;
  readln;
end.

Это первая.

Сообщение отредактировано: Unconnected - 23.12.2008 13:59