If b then
if c then x:=True else x:=a
else x:=a;
if (условие) then
begin
end; //условный оператор
_____________________
for i:=a to b do
begin
end; //Цикл с параметром
_____________________
while (условие) do
begin
end; //цикл с предусловием
_____________________
repeat
until (условие) //цикл с постусловием
F(5) = F(5-1) + 5 = 4 + 5 = 9
G(5) = G(5-1) * 5 = 4 *5 = 20
9+20=29
На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
a = int(input("введите 1 число = "))
b = int(input("введите второе число = "))
op = str(input("оператор: "))
if op == 'pow':
result = a**b
print(result)
if op == '+':
result = a+b
print(result)
if op == '*':
result = a*b
print(result)
if op == '/':
if b == 0:
print("Деление на 0")
else:
result = a/b
print(result)