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

Бейсик

Паскаль

DIM K, I AS LONG

INPUT K

I = 12

WHILE I > 0 AND F(I) >= K

  I = I - 1

WEND

PRINT I

FUNCTION F(N)
  F = N * N

END FUNCTION

var k, i : longint;

function f(n: longint) : longint;

begin

  f := n * n

end;

begin

  readln(k);

  i := 12;

  while (i>0) and (f(i)>=k) do

    i := i-1;

  writeln(i)

end.

Си

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

#include

long f(long n) {

  return n * n;

}

void main()

{

  long k, i;

  scanf("%ld", &k);

  i = 12;

  while (i>0 && f(i)>=k) do

    i– –;

  printf("%ld", i);

}

алг

нач

  цел i, k

  ввод k

  i := 12

  нц пока i > 0 и f(i) >= k

    i := i - 1

  кц

  вывод i

кон

алг цел f(цел n)

нач

  знач := n * n

кон