Нужно одновременно нажать клавиши Ctrl+Alt+Del
If (a-b)<=c then s:=a*c else s:=a/c;
Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.
Пример:
n = 5
p = 14.641
вес одного символа 6000/100=60 бит
мощность алфавит = 2^60= 1152921504606846976 (довольно большое число, лучше обычно записать 2 в степени 60)