Помогите пожалуйста:)1.Определите значение переменной f после выполнения фрагмента...

Question

Помогите пожалуйста:)
1.Определите значение переменной
f после выполнения фрагмента алгоритма:


f:=1


нц для i от 1 до 5


f:=f*i

кц
2.Определите значение переменной
S после выполнения фрагмента алгоритма:
s:=0


нц для i от 1 до 5


s:=s+i*i

кц

Answer 1

//PascalABC.NET версия 3.2, сборка 1389
begin
    var f := 1;
    for var i := 1 to 5 do
    begin
        f := f * i;
        writeln(i, ' -> ', f);
    end;
    writeln;
    
    var s := 0;
    for var i := 1 to 5 do
    begin
        s := s + i * i;
        writeln(i, ' -> ', s);
    end;
end.

И мы получаем такие данные
1)
1 -> 1
2 -> 2
3 -> 6
4 -> 24
5 -> 120
Ответ 120

2)
1 -> 1
2 -> 5
3 -> 14
4 -> 30
5 -> 55
Ответ 55