Question

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

Answer 1

Var
i,a,b:Integer;
Begin
 Read(a,b);
 for i:=a to b do
  begin
   Write(i*i,' ');
  end;
end.
удачи тебе

Answer 2

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

program SquaresInRange;

var
  a, b, i: integer;

begin
  // Вводим натуральные числа a и b
  write('Введите значение a: ');
  readln(a);

write('Введите значение b: ');
  readln(b);

// Проверяем, что a и b - натуральные числа
  if (a <= 0) or (b <= 0) then
  begin
    writeln('a и b должны быть натуральными числами.');
    exit; // Выходим из программы, если введены некорректные значения
  end;

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

end.

Эта программа запрашивает у пользователя значения a и b, затем проверяет, что они являются натуральными числами (больше нуля). Если значения некорректны, программа выдаст сообщение об ошибке. В противном случае программа выводит квадраты натуральных чисел в заданном диапазоне.