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

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

Question

Цвета

3 мая, 21:34

+4

Ответы (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