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.

Answer 2

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

Answer 3

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