Помогите написать программы в Pascal Опции

[-neomax-]

С помощью операторов ветвления и циклов(только без функции)
1)В небоскрёбе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?

2)Нарисовать на экране катящееся по наклонной вида Y=k*X колесо с четырьмя спицами



Массивы и строки:
3)Показать, что, если элементы какого-либо ряда определителя умножить на число, то опре-делитель также умножится на это же число.

4)Строка Т состоит из слов, разделенных запятыми, подсчитать среднюю длину слов.

[Alеx J'Root]

Покажи, что сам сделал.
P.S. Хотя лучше почитай правила форума.

[Vinsent90]

Задача №4

program dlina_slova;
uses crt;
var l,a,b,i,z,k: integer;
    t: string;
begin
  writeln('vvedite stroku'); readln(t);
  for i:=1 to length(t) do if t[i]=',' then inc(z);

  l:= (length(t)-z) div (z+1);
          writeln('sredn99 dlina slova = ',l);
Readkey;clrscr;
end.

[Vinsent90]

Задача №1

program neboskreb;
uses crt;
var m,l : integer;
    n : real;
begin clrscr;
  write(' nomer kvartiri - '); readln(m);
  n:=m/3;
  if m mod 3 <> 0 then n:=n+0.5;
  l:=round(n);
  if l mod 2 = 0 then l:= l-1;
  writeln('etaj  - ',l);
readkey; clrscr;
end.

[Ютани]

Пожалуйста помогите с этой задачей
Программа ищет в текстовом файле слово введённое пользователем выводит на экран это слово, строчку в которой встречается это слово и номер символа с которого происходит вхождение этого слова в строчку

[мисс_граффити]

Ютани, тебе же уже сказали - не надо размещать свои задачи в чужих темах!

[renesko1]

я проверил 1 задачу там эээ выходит , что на 1 этаже 6 квартир.
У меня вопрос надо учтиывать, что у нас (России) 1 этаж 1 , а не ,как говорят немцы Erdeschloss, Erde - земля,
Schloss - этаж, те как нумерация массива с нуля , ане с 1 ?
Так же вопрос если квартира на четном то как ведет себя лифт ?(останавливается на ближайшем этаже к квартире)