Question

Написать программный код на Паскале: Вывести на экран квадраты первых десяти натуральных чисел (используйте цикл while).

Answer 1

Ответ:
program qq;
var a, b:integer;
begin
a:=0;
while (a<>10) do begin
a:=a+1;
b:=sqr(a);
write(' ', b) ;
end;
end.

Answer 2

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

program PrintSquares;
var
  i, square: integer;
begin
  i := 1;
  while i <= 10 do
  begin
    square := i * i;
    writeln('Квадрат числа ', i, ' равен ', square);
    i := i + 1;
  end;
end.

В этом коде мы используем переменную `i` для отслеживания текущего числа, и переменную `square` для хранения квадрата числа `i`. Цикл `while` выполняется, пока `i` меньше или равно 10. Внутри цикла мы вычисляем квадрат числа `i` и выводим его на экран с помощью процедуры `writeln`.

Примечание: Паскаль - это язык программирования, который широко использовался в прошлом, но в настоящее время его популярность снизилась. Если вы хотите использовать более современный язык программирования, например, Python, JavaScript или C++, я могу предоставить вам примеры кода на этих языках.