Ответы
Ответ дал:
2
var i, S, N : integer;
begin
S := 0;
for i:=1 to 7 do S := S + i*i;
WriteLn('summa = ', S)
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад