Степан
5 год назад
Пожалуйста посчитайте, пожалуйста с задачей Паскаль.Даны два целых числа A и B (A<B). Найти сумму квадратов всех целых чисел от A до B включительно.
ОТВЕТЫ
Petr
Oct 24, 2020
var s,a,b,i:integer;
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.
begin
read(a,b);
s:=0;
for i:=a to b do
s:=s+sqr(i);
writeln(s);
end.
136
Смежные вопросы:
