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

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

Question

Кулина

1 апреля, 00:12

+3

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