Предмет: Информатика,
автор: Iska1996
Дано целое число N (> 0). Найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2> N. Функцию извлечения квадратного корня не использовать.
Ответы
Автор ответа:
0
var
n,k,i:integer;
begin
Write('Введите натуральное n: '); Readln(n);
if n<4 then k:=2
else begin
i:=1; k:=1;
while i<=n do begin n:=n-i; i:=i+2; inc(k) end;
end;
Writeln('k=',k)
end.
n,k,i:integer;
begin
Write('Введите натуральное n: '); Readln(n);
if n<4 then k:=2
else begin
i:=1; k:=1;
while i<=n do begin n:=n-i; i:=i+2; inc(k) end;
end;
Writeln('k=',k)
end.
Автор ответа:
0
Использован простейший алгоритм оценки целой части квадратного корня: вычитаем из аргумента по порядку от 1 все нечётные числа, пока остаток не станет меньше очередного вычитаемого числа. Результат равен количеству вычитаний.
Автор ответа:
0
Пожалуйста
Автор ответа:
0
k:=k+1. Стандартный оператор языка Паскаль.
Автор ответа:
0
Спасибо
Интересные вопросы
Предмет: Биология,
автор: Аноним
Предмет: Русский язык,
автор: nonameoff1
Предмет: Английский язык,
автор: tolepbekbidiken34
Предмет: Математика,
автор: Аноним