Ищу молодого и умного програмиста, для корыстных целей =)

[alekta]

Ребят,помогите нешарящей девушке, решите парочку задачек=\
завтра утром надо сдать их злому преподу, а у меня не получается ни че =(
1.Напишите программу возведения целого числа 0 < x < 10 в натуральную степень k. Оба числа вводятся пользователем с клавиатуры. Выполните это задания тремя различными способами – используя конструкции цикла со счетчиком, цикла с условием и цикла с постусловием.
Изучите циклические конструкции (for to do, while do, repeat until).
2. Напишите программу, которая по введенному номеру месяца високосного или невисокосного года, выводит количество дней в месяце. Високосным считается год, который кратен 4, при этом год кратный 100 -- невисокосный, и при этом год кратный 400 -- снова високосный.
Изучите оператор выбора (case of).
3. Для введенного пользователем натурального числа n программа выводит на печать все делители числа n (в том числе 1 и n). Преобразовать программу так, чтобы число выполняемых итераций цикла было минимальным (чему оно будет равно?).
Изучите операции над переменными целых типов такие, как div, mod.
4. Для введенного числа n выведите на печать n строк треугольника Паскаля. Модифицируйте программу так, чтобы запись производилась в отдельный файл.
Изучите работу с массивами array, и текстовыми файлами (см. assign, reset, rewrite, EOF, close и др.).
5. Заполните массив случайными целыми числами и отсортируйте его по возрастанию, предложив свой алгоритм (или один из известных вам). Модифицируйте программу так, чтобы массив заполнялся значениями из входного файла.
Изучите работу с массивами array, и текстовыми файлами (см. assign, reset, rewrite, EOF, close и др.).

[ponchikpk]

1:

s:=1;
for i:=1 to k do
  s:=s*x;

i:=1;
s:=1;
while i<=k do
  begin
  s:=s*x;
  inc(i);
  end;

i:=1;
repeat
s:=s*x;
inc(i);
until i=k;

На остальное времени уже нет Пусть другие стараются или сама напряги мозги

[alekta]

ponchikpk, спасибо большое=)

[Serge_Bliznykov]

задача 2.

var
  Month, Year, DaysInMonth : integer;
begin
   WriteLn('Vvedite mesac: ');
   ReadLn(Month);
   WriteLn('Vvedite god: ');
   ReadLn(Year);

   case Month of
     1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
     4, 6, 9, 11 :
        DaysInMonth := 30;
     2 : begin
           if  (Year mod 4 = 0)  and
              ((Year mod 100 <> 0) or (Year mod 400 = 0)) then 
             {значит год високосный}
             DaysInMonth := 29
           else   
             {невисокосный}
             DaysInMonth := 28
         end    
    else
      DaysInMonth := 0;
    end;
   WriteLn('Kolicestvo dney = ',DaysInMonth:1) 
end.

[alex_fcsm]

Сорри за оффтоп, но не мог не удержаться

Интим не предлагать!