Помогите составить программу на Паскале

Найти сумму квадратов натуральных чисел от 15 до 25

Question

Софья

27 сентября, 13:26

+2

Ответы (1)

Знаете ответ на вопрос?

Валер · Answer 1

Var

i, s:integer;

begin

s:=0;

for i:=15 to 25 do

s:=s+sqr (i) ;

writeln (s) ;

readln;

end.

Помогите составить программу на ПаскалеНайти сумму квадратов натуральных чисел от 15 до 25