Даны два целых числа A и B (A<B). Найти сумму квадратов всех целых чисел от A до B включительно.
Надо нарисовать блок схему(я вроде нарисовала,но сказали что там есть ошибка)

и написать программу надо

1

Ответы и объяснения

2013-04-12T14:40:15+00:00

var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a<b;
s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.