))
ты какой класс ??
или школу закончил ?))
clrscr;longint; Что это за команды ?
clrscr - можеш убрать, это отчиска экран, лонгинт можно засенить на integer

Ответы и объяснения

  • Kael
  • хорошист
2013-11-28T15:58:34+04:00
Var a, stepen1, stepen2: longint;

begin
clrscr;
readln(a);
stepen1:=1;
while stepen1<= a do
 stepen1:=stepen1*3;
stepen2:=stepen div 3;
if (a-stepen2) >= (stepen1-a) then writeln(stepen1)
 else
 writeln(stepen2);
end.
while stepen1
почему я пишу "меньше а ", а у меня не отображается(
??
измени пожалуйста,а то я 0 по паскалю