Вопрос по информатике:
Ано целое число N (>0). найти наименьшее целое положительное число K, квадрат которого превосходит N: K^2>N. функцию извлечения квадратного корня не использовать. Решить через repeat
Пожаловаться
- 24.12.2017 03:51
- Информатика
- remove_red_eye 14909
- thumb_up 19
Ответы и объяснения 1
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.
Пожаловаться
- 25.12.2017 14:04
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы