Бейсик

Python

DIM S, N AS INTEGER

S = 30

N = 1

WHILE S > 0

  S = S \ 3

  N = N * 2

WEND

PRINT N

s = 30

n = 1

while s > 0:

    s = s // 3

    n = n * 2

print(n)

Алгоритмический язык

Паскаль

алг

нач

  цел s, n

  s := 30

  n := 1

  нц пока s > 0

    s := div(s, 3)

    n := n * 2

  кц

  вывод n

кон

var s, n: integer;

begin

  s := 30;

  n := 1;

  while s > 0 do

  begin

    s := s div 3;

    n := n * 2

  end;

  writeln(n)

end.

Си

#include<stdio.h>

int main()

{  int s = 30, n = 1;

   while (s > 0) { s = s / 3; n = n * 2; }

   printf("%d\n", n);

   return 0;

}