Найти сумму квадратов всех чисел, расположенные между A и B

Категория: Delphi/Pascal
2011-12-23 16:38:08

Даны два целых числа A и B.

code: #pascal
Program For9;
Var 
a, b,i:integer;
s:longint;
Begin
Writeln('введите A');
readln(a);
Writeln('введите B');
readln(b);
s:=0;
For i:=a to b do 
s:=s+sqr(i);
Writeln('сумма=', s);
end.

автор: Zakirov Nail Zevsnet

Поделиться:

Похожие статьи:

теги: for, М.Э.Абрамян, sqr, целое число, квадрат числа, сумма, консольное приложение, студенты