program three; var i:integer; b:extended; a:real; begin write('Введите число а '); readln(a); i:=1; b:=3; while b<=a do begin inc(i); b:=b*3; end; writeln('показатель степени равен ',i); readln end.
Яндекс