Текст, таблицы и рисунки (но это уже исходя из типа документа).
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
Var a:array [1..100] of integer;
<span>i:integer; </span>
<span>begin </span>
<span>randomize; </span>
<span>for i:=1 to 100 do begin </span>
<span>a[i]:=random(i); </span>
<span>if (a[i]>=10) and (a[i]<=99) then write (a[i],' '); </span>
<span>end; </span>
<span>end.</span>
DD(16) = 13*16+13 = 221(10)
337(8) = 3*8^2+3*8+3 = 223(10)
С = 222(10)