Question

Написать программу на языке Паскаль, где при вводе двух целых чисел a и b (a ≤ b) выводятся квадраты всех чисел от a до b.

Answer 1

Ответ:

var

 a, b, i: integer;

begin

 readln(a, b);

 for i := a to b do  

  write(sqr(i), ' ');

end.

Объяснение:

Answer 2

Для написания программы на языке Pascal, которая выводит квадраты всех чисел от a до b (где a ≤ b), вы можете использовать следующий код:

pascalCopy code
program SquaresInRange;
var
  a, b, i: integer;
begin
  writeln('Введите два целых числа a и b (a ≤ b): ');
  readln(a, b);

  if a <= b then
  begin
    writeln('Квадраты чисел от ', a, ' до ', b, ':');
    for i := a to b do
    begin
      writeln(i, ' в квадрате = ', i * i);
    end;
  end
  else
  begin
    writeln('Ошибка: a должно быть меньше или равно b.');
  end;
end.

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