Напишите программу, которая вводит натуральные числа a и b , и выводит квадраты натуральных чисел в...

program SquaresInRange;

var a, b, i: Integer;

begin Write('Введите число a: '); Readln(a); Write('Введите число b: '); Readln(b);

if (a < 1) or (b < a) then

WriteLn('Некорректный ввод')

else begin

for i := a to b do
  WriteLn('Квадрат числа ', i, ' = ', i*i);

end; end.

Конечно, давайте разберем, как можно написать программу на языке Pascal, которая выполняет указанную задачу.

Программа должна запрашивать у пользователя два натуральных числа a и b. После этого она должна определить все натуральные числа в диапазоне от a до b (включительно) и вывести их квадраты.

Вот пример кода на языке Pascal, который выполняет данную задачу:

program SquaresInRange;

var
  a, b, i: Integer;

begin
  { Запрашиваем у пользователя ввод двух натуральных чисел }
  Write('Введите первое натуральное число (a): ');
  ReadLn(a);

  Write('Введите второе натуральное число (b): ');
  ReadLn(b);

  { Проверяем, что a и b - натуральные числа и a