function R(x, y: integer):integer; begin result := x*(y – 1); end;
function F(x, y: integer):integer begin Result := R(x + 1, y) - R(x, y - 1); end;
function G(x, y:integer):integer begin Result := F(x, R(x, y)); end;
begin
writeln( G(3, 3) );
end.
<em><u>Изначально s = 60</u></em>
<em><u>Цикл будет работать 6 раз</u></em>
Первый проход цикла: k = 5, тогда s = 60 - 5 = 55
Второй проход цикла: k = 6 (т.к один проход уже сделан, и значение переменной k увеличилось на 1), тогда s = 55 - 6 = 49
Третий проход цикла: k = 7, тогда s = 49 - 7 = 42
Четвертый проход цикла: k = 8, тогда s = 42 - 8 = 34
Пятый проход цикла: k = 9, тогда s = 34 - 9 = 25
Шестой проход цикла: k = 10, тогда s = 25 - 10 = 15
Окончательный ответ: значение переменной s после выполнения цикла = 15