Введите ответ в поле ввода

Бейсик

Паскаль

DIM I, S, N AS INTEGER

I = 0

S = 42

N = 1

WHILE S > 0

  S = S – 8

  N = N * (I + 1)

  I = I + 1

WEND

PRINT(N)

var i, s, n: integer;

begin

  i := 0;

  s := 42;

  n := 1;

  while s > 0 do

  begin

    s := s – 8;

    n := n * (i + 1);

    i := i + 1

  end;

  writeln(n)

end.

Си

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

#include

void main()

{

  int i, s, n;

  i = 0;

  s = 42;

  n = 1;

  while (s > 0)

  {

    s = s – 8;

    n = n * (i + 1);

    i++;

  }

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

}

алг

нач

  цел i, s, n

  i := 0

  s := 42

  n := 1

  нц пока s > 0

    s := s — 8

    n := n * (i + 1)

    i := i + 1

  кц

  вывод n

кон