Найти сумму квадратов чисел от m до n. паскаль
Найти сумму квадратов чисел от m до n. паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar s,i,m,n:integer;
begin
readln(m,n);
for i:=m to n do
s:=s+sqr(i);
writeln('summa:',s);
end.
Не нашли ответ?
Похожие вопросы