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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

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

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

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

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

procedure sum(x, y, h: integer);
  var result : integer;
begin
  result := (x + y + h);
  write(result);
end;

begin
  write('Результат процедуры: ');
  sum(1, 2, 3);
  readln();
end.   

Задание 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;