Результат работы цикла

Бейсик

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;

}