Синформатикой ввести с клавиатуры 2 числа m,n> 0. если n< =m то вывести 1, иначе любое другое число. при выполнении нельзя использовать условные операторы, необходимо оставаться в классе целых типов и использовать операции
целочисленной арифметики: div, mod, *, +, -. записать фрагмент программы на pascal. (делающим можно не писать, просто объясните, что мне надо накатать в тетради тогда) работа на abc pascal

Write (ndivm  +1) если не поймете  -  прокомментирую

Program n1;
var a,b: integer;
begin
readln(a,b);
write(a+b);
end.

Имя Павел вошло в христианский календарь как имя одного из величайших учителей Церкви Христовой, который после прочих Апостолов обратился к вере в Иисуса Христа, но более каждого из них содействовал покорению державе Его всего мира. Как гласит предание, апостол Павел сначала звался Саулом и был ярым противником и гонителем христианского учения. Однако когда Господь призвал его к апостольству, Саул уверовал в веру Христову и стал ревностно распространять новое учение. Явившийся к нему во сне Господь дал ему имя Павел и повелел распространять христианство по всей земле.

Чтобы заработал этот код надо добавить первой строкой:
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.


function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
  if n > 2 then
    F := F(n - 1) + G(n - 2)
  else
    F := 1;
end;

function G(n: integer): integer;
begin
  if n > 2 then
    G := G(n - 1) + F(n - 2)
  else
    G := 1;
end;

begin
  writeln(F(7));
end.

Ответ: 13