Question

(паскаль) Вывести на экран квадраты n первых положительных чисел. Значение n определяется пользователем с клавиатуры. Выполните решение задачи с помощью ЦИКЛА С ПОСТУСЛОВИЕМ(repeat/until). Заранее спасибо!!!

Answer 1

Ответ:

var

i,n:integer;

begin

   readln(n);

   i:=1;

   repeat

   writeln(i*i);

   i:=i+1;

   until i>n;

end.

Объяснение:

Answer 2

Конечно, вот пример кода на языке Pascal, который выводит квадраты первых n положительных чисел с использованием цикла с постусловием (repeat/until):

pascalCopy code
program SquaresOfNumbers;

var
  n, i, square: integer;

begin
  // Вводим значение n
  writeln('Введите количество чисел:');
  readln(n);
  
  // Выводим квадраты первых n положительных чисел
  i := 1;
  repeat
    square := i * i;
    writeln('Квадрат числа ', i, ' равен ', square);
    i := i + 1;
  until i > n;
  
end.

Программа запрашивает у пользователя количество чисел (n) и затем с помощью цикла repeat/until выводит квадраты чисел от 1 до n. Код будет выполняться до тех пор, пока значение переменной i не станет больше n.

Пример вывода при n = 5:

Copy code
Введите количество чисел:
5
Квадрат числа 1 равен 1
Квадрат числа 2 равен 4
Квадрат числа 3 равен 9
Квадрат числа 4 равен 16
Квадрат числа 5 равен 25