Что будет показано на экране после запуска этой программы: Программа Основа; переменные c1, c2 типа integer; функция

Решение:

В данной программе, сначала объявляются переменные `c1` и `c2` типа `integer`. Затем определяется функция `Apb(a, b: integer): integer`, которая возвращает целое число и принимает два целочисленных аргумента `a` и `b`.

Далее в основном теле программы выполняются следующие действия:
1. Присваивается значение 10 переменной `c1`: `c1 = 10;`
2. Присваивается значение 20 переменной `c2`: `c2 := 20;`
3. Вызывается функция `Apb` с аргументами `c1` и `c2`, а затем результат умножается на результат вызова функции `Apb` с аргументами `c1` и `c2` снова. Результат каждого вызова функции `Apb` является аргументом для следующего вызова функции.

Однако, на этапе компиляции программы возникнет ошибка, поскольку название переменной `ci` вместо `c1` в вызове функции `Apb(ci, c2)` является ошибкой.

Демонстрация:

pascal

program Основа;

var

  c1, c2: integer;

  

function Apb(a, b: integer): integer;

begin

  Apb := a + b;

end;



begin

  c1 := 10;

  c2 := 20;

  write(Apb(c1, c2) * Apb(c1, c2));

end.

Совет:

Для успешного запуска программы, необходимо исправить ошибку и заменить `ci` на `c1` в вызове функции `Apb(ci, c2)`.

Дополнительное задание:

Напишите исправленную программу, которая получает на входе значения переменных `c1` и `c2`, а затем выводит на экран результат умножения двух вызовов функции `Apb` соответствующих аргументов.