:) 1.определите значение переменной f после выполнения фрагмента алгоритма: f: =1 нц для i от 1 до 5 f: =f*i кц 2.определите значение переменной s после выполнения фрагмента алгоритма: s: =0 нц для i от 1 до 5 s: =s+i*i кц

//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