fkn+antitotal

Задача 2 Урок 20

Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

var A, B :integer;

function num(A, B:integer):integer;
begin
  if(A > B) then
    A := A - 1;
  else if(A < B) then
    A := A + 1;
  if(A <> B) then
    writeln(A);
    num(A,B);
end;

begin
  readln(A);
  readln(B);
  num(A,B);
  readln();
end. 

Задача 1 Урок 20

Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

var N :integer;

function num(N:integer):integer;
begin
  writeln(N);
  if(N <> 1) then
    result :=  num(N-1);
end;

begin
  readln(N);
  num(N);
  readln();
end.       

Для chrome - отладки в браузере, пока что не очень понятно

Задача 4 урок 20

Дано целое положительное число N, вычислите N! (эн факториал).

program u20z4;
var n:integer;
function fun(n1:integer):integer;
begin
  if (n1=1) then
    result:=1
  else
   result:=n1*fun(n1-1);
end;
begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(n));
  readln();
end.  

Задача 3 урок 20

Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

Задача 1 урок 20

Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

program u20z1;
var n:integer;
function fun(n1:integer):integer;
begin
   write(n1,' ');
   if ((n1)>1) then
     result:=fun(n1-1);
end;
begin
    writeln('vvedite n');
    readln(n);
    fun(n);
    readln();
end.

COPY failed: forbidden path outside the build context

Причина

Команда COPY не дает "вылезти" за пределы определенного контекста сборки (соображения безопасности, видимо).

Задача 9 Урок 17

Задача 8 Урок 17

На вход вашей программы подается строка вида:
5 + 6 -34 + 56 - 7 + 2
("сколько угодно" чисел с операциями суммы и разности в любом порядке). Вычислите результат (пробелов между символом операции и числом может и не быть.)

Задача 2 урок 18

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

Вася    16     485
Коля    17   555
Юра     18   61
..........

-- где:
слева указаны имена участников, а справа число баллов.
Первое число в каждой строке -- штрафные баллы набранные участниками, а второе число -- "положительные баллы", то есть если у нас есть строка: