//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
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.