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

Answer 2

Problem Analysis

To find the sum of the squares of all integers from `a` to 10, we need to calculate the square of each integer from `a` to 10 and then sum them up. We also need to ensure that the input value `a` is less than 10.

Solution

Here's a Pascal program that solves the problem:

program SumOfSquares;

var
  a, i, sum: integer;

begin
  // Read the value of 'a' from the user
  write('Enter the value of a (a < 10): ');
  readln(a);

// Check if 'a' is less than 10
  if a >= 10 then
  begin
    writeln('Invalid input. a should be less than 10.');
    exit;
  end;

// Calculate the sum of squares
  sum := 0;
  for i := a to 10 do
  begin
    sum := sum + i * i;
  end;

// Display the result
  writeln('The sum of squares from ', a, ' to 10 is ', sum);
end.

Explanation

1. The program starts by declaring the variables `a`, `i`, and `sum` as integers. 2. The user is prompted to enter the value of `a` using the `write` and `readln` statements. 3. The program checks if `a` is greater than or equal to 10. If it is, an error message is displayed, and the program exits using the `exit` statement. 4. If `a` is less than 10, the program initializes the variable `sum` to 0. 5. The program then uses a `for` loop to iterate from `a` to 10. In each iteration, the square of the current value of `i` is added to `sum`. 6. Finally, the program displays the result using the `writeln` statement.

Example

Let's say the user enters the value of `a` as 3. The program will calculate the sum of squares from 3 to 10 as follows:

3^2 + 4^2 + 5^2 + 6^2 + 7^2 + 8^2 + 9^2 + 10^2 = 285

Therefore, the program will output:

The sum of squares from 3 to 10 is 285

Note

Make sure to compile and run the program in a Pascal compiler to see the output.