Question

Вывести квадраты натуральных чисел в диапазоне от [a,b] на языке pascal.

Answer 1

Ответ:

program prog;

var a,b:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   while a <= b do

   begin

       write(sqr(a), ' ');

       a:=a+1

   end

end.

Answer 2

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

pascalCopy code
program SquaresInRange;
var
  a, b, i: integer;
begin
  writeln('Введите начальное значение a: ');
  readln(a);
  writeln('Введите конечное значение b: ');
  readln(b);

  writeln('Квадраты натуральных чисел в диапазоне от ', a, ' до ', b, ':');
  
  for i := a to b do
  begin
    writeln(i, ' * ', i, ' = ', i * i);
  end;
end.

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