Question

Написать программу в Pascal: Найти сумму квадратов всех целых чисел от а до b (значение а и b вводятся с клавиатуры, b больше а).​

Answer 1

program skab;

uses

crt;

var

i, a, b, s: integer;

begin

s := 0;

writeln('Введите a, затем b (a<b) :');

readln(a, b);

if a < b then

begin

for i := a to b do

s := s + (i * i);

writeln('Сумма квадратов целых чисел от а до b: ', s);

end

else

writeln('Ошибка! Проверьте правильность введённых данных! Закрытие программы...');

readln;

end.

Answer 2

Конечно! Вот пример программы на Pascal, которая находит сумму квадратов всех целых чисел от a до b:

pascalCopy code
program SumOfSquares;
var
  a, b, i, sum: integer;
begin
  // Ввод значений a и b с клавиатуры
  writeln('Введите значение a:');
  readln(a);
  
  writeln('Введите значение b (b должно быть больше a):');
  readln(b);
  
  // Проверка условия b > a
  if b <= a then
  begin
    writeln('Ошибка: b должно быть больше a.');
    exit;  // Завершение программы
  end;
  
  // Инициализация суммы
  sum := 0;
  
  // Вычисление суммы квадратов
  for i := a to b do
  begin
    sum := sum + i * i;
  end;
  
  // Вывод результата
  writeln('Сумма квадратов всех целых чисел от ', a, ' до ', b, ' равна ', sum);
end.

Программа запрашивает у пользователя значения a и b, затем проверяет условие b > a. Если условие не выполняется, программа выводит сообщение об ошибке и завершается. В противном случае программа вычисляет сумму квадратов всех целых чисел от a до b и выводит результат на экран.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.