Question

Сформулировать таблицу квадратов чисел от 1 до 15. Использовать цикл "до" (с постусловием). То есть, написать простой алгоритм на паскале.

Answer 1

Var i:integer;
begin
i:=1;
repeat
  writeln(i, i*i:4);
  i+=1;
until i=16;
end.

Answer 2

Формулировка таблицы квадратов чисел от 1 до 15

Для формулировки таблицы квадратов чисел от 1 до 15, можно использовать цикл "до" с постусловием. Вот простой алгоритм на языке Pascal:

program SquareTable;
var
  i, square: integer;
begin
  writeln('Таблица квадратов чисел от 1 до 15:');
  i := 1;
  repeat
    square := i * i;
    writeln(i, ' * ', i, ' = ', square);
    i := i + 1;
  until i > 15;
end.

В результате выполнения этого алгоритма будет выведена таблица квадратов чисел от 1 до 15:

Таблица квадратов чисел от 1 до 15:
1 * 1 = 1
2 * 2 = 4
3 * 3 = 9
4 * 4 = 16
5 * 5 = 25
6 * 6 = 36
7 * 7 = 49
8 * 8 = 64
9 * 9 = 81
10 * 10 = 100
11 * 11 = 121
12 * 12 = 144
13 * 13 = 169
14 * 14 = 196
15 * 15 = 225

Примечание: При формулировке таблицы квадратов чисел от 1 до 15 были использованы поисковые результаты, но не было возможности найти конкретные источники, которые могли бы быть цитированы. Поэтому приведенный алгоритм является общепринятым способом решения данной задачи на языке Pascal.