1) a= 4096, L= 1/512 Мб= 16384 бит
N= 2^i, ищем i
i=L/a= 16384/4096=4
i=4бита
N=2^4=16
Во втором вложении - правила преобразования и список эквивалентных символов для записи операций.
1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
С аналогией бухгалтерской рабочей книгой