Program P11;
var P, x : real; {описываем переменные Р и х как вещественные числа}
b : integer; {переменную b как целое число}
Begin
Write ('Введите значение переменной Х:');
Readln(x); {Получаем значение переменной Х}
P:=0; {Обнуляем значение переменной Р}
For B:=1 to7 do {Переменная В изменяется от 1 до 7, для этого используем цикл с параметром}
P:=P+(sqr(x)+2*b); {Значение переменной P увеличиваеться с каждым проходом на X^2+2b, т.е. считается сумма Х^2+2b для всех b от 1 до 7}
Writeln('P=', P:3,2); {Выводим значение Р}
End.
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
Текстовые файлы можно изменять и удалять
44 в 10ичной = 54 в 8ричной
44 в 10ичной = 2С в 16ричной
44 в 10ичной = 10110 в 2ичной
5120*1024=5242880
Наверное так