Question

Пользователь с клавиатуры вводит натуральное число N. Программа должна посчитать квадраты всех натуральных чисел от 1 до введенного числа N включительно.с использованием цикла FOR. программа в Паскале. ​

Answer 1

Ответ:

Код ниже

Объяснение:

program showSquared;

var N, i: integer;

begin

   writeln('Введите число N');

   readln(N);

   for i := 1 to N do begin

      writeln('Квадрат числа ', i, ' равен ', sqr(i));

   end;

end.

Answer 2

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

pascalCopy code
program CalculateSquares;
var
  N, i: Integer;
begin
  Write('Введите натуральное число N: ');
  Readln(N);
  
  WriteLn('Квадраты натуральных чисел от 1 до ', N, ':');
  
  for i := 1 to N do
    WriteLn('Квадрат числа ', i, ': ', i * i);
end.

Вы можете сохранить этот код в файл с расширением .pas, скомпилировать его с помощью компилятора Pascal (например, Free Pascal) и выполнить полученный исполняемый файл. Программа запросит у пользователя ввести натуральное число N, а затем выведет квадраты всех натуральных чисел от 1 до N.