С ЦИКЛАМИ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифм. прогресии:'); Readln(n); For i:=1 to n do a:=a+d; Writeln(n, ' член арифметической прогресии равен : ', a); End. БЕЗ ЦИКЛОВ: Program test ; Var d, a, :real; n, i:integer; Begin Write ('введите a1: '); Readln(a) ; Write(' введите шаг арифм. прогресии: '); Readln(d); Write('введите номер члена арифметической прогресии: '); Readln(n); Writeln(' ответ: ', a+d*(n-1)); End.
2^12/2^11=2 бит/1 симв
2*2^11=2^12 бит=4096 бит