Задание 1 Урок 14

Напишите функцию, которая возвращает сумму трёх целых чисел.

var a,b : integer;

  function sum(x, y: integer): integer;
  begin
    result := (x + y);
  end;
begin
  write('Введите через запятую два слагаемых и нажмите ENTER:');
  readln(a,b);
  write(sum(a,b));
  readln();
end.  

Решение задачи №3 из главы 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

Решил но совсем не правильно, работает

Решение задачи №12 из главы 11

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var b,c :integer;
  begin

  b:=15 mod 10;// получаем 5
  c:=15 div 10; // получаем 1
  writeln (b);
  writeln(c);
  readln();
  end.  

Судя по всему стандартной нотации для подчеркнутого текста нет...

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:

С использованием if()

var a : integer;
begin
  while (a < 22) do
    begin
     writeln('vvedite celoe chislo');
     readln(a); // вводим число
     if ( a = 22) then
       writeln('#')
     else
       writeln();
     end;
end.   

С использованием break;

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решение задачи №19 из главы 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

1.

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  while (i < 117) do
  begin
    i:= i +1;
    if (i > 35) and (( i mod 3) = 0) then
        if (i< 117) then
          writeln(i);
  end;
  readln();
end.