Помогите составить программу решения задачи в паскаль АВС.
Даны два целых числа А и В (А меньше В). Найти сумму квадратов всех целых чисел от А до В включительно.
Ответы
Ответ дал:
0
var i, a, b, c: integer;
begin
readln(a, b);
for i := a to b do c := c + i*i;
writeln(c);
end.
Работает)
begin
readln(a, b);
for i := a to b do c := c + i*i;
writeln(c);
end.
Работает)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад