Предмет: Информатика,
автор: Bekbek0101
ано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать. Решить через repeat
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Английский язык,
автор: sasasonec9
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: lerochka08op
Предмет: Химия,
автор: kosinov01