Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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