Анаклет
4 год назад
ано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать. Решить через repeat
ОТВЕТЫ
Stefan
Oct 24, 2020
program n_1;
var N, K:integer;
begin
writeln;
write(' N = ');
readln(N); K := 1; repeat
K:=k+1;;
until K * K > N;
writeln;
writeln(': ', K);
end.
var N, K:integer;
begin
writeln;
write(' N = ');
readln(N); K := 1; repeat
K:=k+1;;
until K * K > N;
writeln;
writeln(': ', K);
end.
283
Смежные вопросы:
