Pascal. 1. Определить является площадь куба меньше заданного числа

просто перевод строк на паскаль. Логики тут искать не стоит. Первоначальное задание не полностью дано.

Объяснение:

const

 size = 6

var

 a : array [0..size, 0..size] of integer;

 d, v : array [0..size] of integer;

 i, temp, minindex, min, begin_index : integer;

begin

 begin_index := 0;

 for i:=0 to size-1 do begin

   temp := min + a[minindex][i]

   if temp < d[i] then

     d[i] := temp

 end;

 v[minindex] := 0;

 writeln('Кратчайшие расстояния до вершин')

 for i := 0 to size-1 do

   writeln(ver[i])  

end.

840

Объяснение:

Функция рекурсивно вызывает саму себя с разными аргументами.

F(5) должна вычислить F(4) * 7

F(4) ----------------------------- F(3) * 6

F(3) ----------------------------- F(2) * 5

F(2) ----------------------------- F(1) * 4

F(1) возвращает 1.

F(2)  получает 1, вычисляет 1*4 и возвращает результат 4

F(3) получает 4, вычисляет 4*5 и возвращает 20

F(4) получает 20, вычисляет 20*6 и возвращает 120

F(5) получает 120, вычисляет 120*7 и возвращает 840

Основная программа получает 840 и выводит число на экран