Question

Помогите написать программу на pascal. Напишите программу, выводящую ряд квадратов чисел от 1 до 10 двумя способами for и while

Answer 1

Ответ:

С помощью цикла for:

var

i:integer;

begin

for i:=1 to 10 do

writeln(i*i);

end.

C помощью цикла while:

var

i:integer;

begin

i:=1;

while i<=10 do

begin

writeln(i*i);

i+=1;

end;

end.

Объяснение:

i+=1 - запись равнозначна записи i:=i+1

Answer 2

Конечно! Ниже приведены два примера программ на Pascal для вывода квадратов чисел от 1 до 10 с использованием циклов for и while.

1. Программа с использованием цикла for:

pascalCopy code
program SquareForLoop;

var
  i: Integer;

begin
  writeln('Squares of numbers from 1 to 10 using for loop:');
  
  for i := 1 to 10 do
  begin
    writeln('Square of ', i, ' is ', i * i);
  end;
end.

2. Программа с использованием цикла while:

pascalCopy code
program SquareWhileLoop;

var
  i: Integer;

begin
  writeln('Squares of numbers from 1 to 10 using while loop:');
  
  i := 1;
  while i <= 10 do
  begin
    writeln('Square of ', i, ' is ', i * i);
    i := i + 1;
  end;
end.

Обе программы выводят квадраты чисел от 1 до 10, используя соответствующие циклы for и while.