Question

Написать программу печати квадратов всех натуральных чисел от 1 до n. Паскаль, цикл-for. Пожалуйста помогите,очень нужно!!!!!

Answer 1

Ответ:

Объяснение:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i,'^2= ',sqr(i));

readln;

end.

Если уж совсем просто, то:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i*i);

readln;

end.

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль для печати квадратов всех натуральных чисел от 1 до n с использованием цикла for. Вот пример такой программы:

pascalCopy code
program PrintSquares;

var
  n, i, square: Integer;

begin
  Write('Введите значение n: ');
  ReadLn(n);

  WriteLn('Квадраты натуральных чисел от 1 до ', n, ':');
  
  for i := 1 to n do
  begin
    square := i * i;
    WriteLn(i, ' * ', i, ' = ', square);
  end;
end.

Эта программа запрашивает у пользователя число n, а затем выводит квадраты всех натуральных чисел от 1 до n. Квадрат каждого числа вычисляется и выводится в цикле for с использованием переменной square.