Сколько раз будет выполнен описанный цикл?
for i:=2 to 1 do
t:=random (100);
​

Нисколько, 0

Объяснение:

В i уже лежит 2, чтобы цикл пошел к 1, надо down to, а не do, как в этом коде

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.