Поиск минимального значения k

Бейсик

DIM K, I AS LONG

INPUT K

I = 32

WHILE I > 0 AND F(I) > K

I = I - 1

WEND

PRINT I

FUNCTION F(N)

F = N * N - 45

END FUNCTION

Python

def F(n):

return n * n - 45

k = int(input())

i = 32

while i > 0 and F(i) > k:

i = i - 1

print(i)

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

алг

нач

цел i, k

ввод k

i := 32

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

i := i - 1

кц

вывод i

кон

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

нач

знач := n * n - 45

кон

Паскаль

var k, i : longint;

function F(n: longint) : longint;

begin

F := n * n - 45

end;

begin

readln(k);

i := 32;

while (i > 0) and (F(i) > k) do

i := i - 1;

writeln(i)

end.

C++

#include <iostream>

using namespace std;

long F(long n) {

return n * n - 45;

}

int main() {

long k, i;

cin >> k;

i = 32;

while (i > 0 && F(i) > k) {

i${\displaystyle –}$${\displaystyle –}$;

}

cout << i;

return 0;

}