Помогите пожалуйста .Сделайте программу .Найти сумму квадратов чисел от 10до 30 .Квадраты...

Question

Помогите пожалуйста .Сделайте программу .Найти сумму квадратов чисел от 10до 30 .Квадраты чисел выводить ,а сумму вывести только результат.

Answer 1

Var i, sumSqr: integer;
begin
  for i := 10 to 30 do
  begin
    write(sqr(i):4);
    sumSqr := sumSqr + sqr(i);
  end;
  writeln;
  writeln('Сумма квадратов чисел от 10 до 30 = ', sumSqr);
end.

---

Comments

можешь подсказать ,зачем ты писала writeln; без ничего,тоесть ты хотела вывести это на экран ?

---

Переход на следующую строку. Если не написать, то строка с суммой будет вдоль строки с корнями.