For9. Даны два целых числа $$A$$ и $$B$$ ($$A < B$$). Найти сумму квадратов всех целых чисел от $$A$$ до $$B$$ включительно.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program For9; var A,B,Rez, i:Integer; begin Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); rez:=0; For i:=A to B do Rez:=Rez+sqr(I); Writeln(Rez); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: