Составить программу вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10

321NIYAZ123 321NIYAZ123    1   20.09.2019 04:10    2

Ответы
vitalinaegorova vitalinaegorova  08.10.2020 03:54
Var 
  i, sum: integer;

begin
  sum := 0;
  i := 5;
  repeat
    sum := sum + i * i;
    i := i + 1;
  until(i >  10);
  write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика