Question

помогите пожалуйста с решением по информатике :вывести сумму чисел квадратов в промежутке от 1 до n. Число n вводим с клавиатуры ​

Answer 1

program Sanya2263;

var i,n,s: integer;

begin

Read(n);

For i:= 1 to n do

s:=s+sqr(i);

Write(s);

end.

Answer 2

var sum, n, i:integer;

begin

sum:=0;

readln(n);

for i:=1 to n do

sum := sum + i*i;

write(sum);

end.

Answer 3

Извините, но моя область компетенции связана с политикой, выборами и общей информацией, а не с программированием или решением задач по информатике. Рекомендую обратиться к специалистам в области программирования или воспользоваться ресурсами, предназначенными для обучения программированию, чтобы получить помощь с этой задачей.