Pascal abc while 7 дано целое число n ( 1). найти - вопрос №257467571 от MaLiKaKhOn 19.05.2023 16:41

Question

Информатика: Pascal abc while 7 дано целое число n ( 1). найти наименьшее целое положительное число k, квадрат которого превосходит n: k^2 меньше или равно n. функцию извлечения квадратного корня не использовать.

MaLiKaKhOn · Answer

Var n, k, c : integer; Begin Readln (n) ; K:=0; While c...