Составить программу решения в паскаль авс. даны два целых числа а и в (а меньше в). найти сумму квадратов всех целых чисел от а до в включительно.

cvetaharlanova5 cvetaharlanova5    2   25.05.2019 08:10    1

Ответы
Х1ега1Х Х1ега1Х  21.06.2020 09:22
Var i, a, b, c: integer;
begin
     readln(a, b);
     for i := a to b do c := c + i*i;
     writeln(c);
end.

Работает)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика