Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры....

Question

Найдите сумму квадратов всех целых чисел от а до 10. Значение а вводится с клавиатуры. Предусмотрите проверку корректности ввода (а<10). Написать программу в Pascal

Answer 1

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var a:=ReadInteger('Введите целое число, не превышающее 9:');
  if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
  else Writeln('Введенное значение больше 9')
end.

Тестовое решение
Введите целое число, не превышающее 9: -7
S2=525

Comments

Спасибо огромное за ответ. А эта программа будет работать на FreePascal?

---

Нет, не будет.

---

Версия Паскаля написана в первой строке программы. О FPS в вопросе не было сказано ни слова.

---

А не могли бы Вы написать эту же программу в FPS

---

Мог бы, конечно. Но, как я уже сказал, Вы не указали, что нужно писать в FPS, а теперь начинаете разговоры про него. Т.е. Вам все равно, что другие люди потратили из-за Вашей небрежности свое время, делая то, что Вам не нужно. Следовательно, Вы не цените чужой труд. А это плохо.