Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
PolinaFox6002
27.02.2023 20:22 •
Информатика
Дано целое число n (> 0). найти наименьшее целое положительное число k, квадрат которого превосходит n: k^2> n. функцию извлечения квадратного корня не использовать
Показать ответ
Ответ:
Eveliinaa
22.06.2020 01:29
Последовательно показала ;)
0,0
(0 оценок)
Ответ:
Yasmin1708
22.06.2020 01:29
Var k,n:integer;
begin
readln(n);
k:=1;
while n>=k*k do
k:=k+1;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
жасик0071
11.11.2022 09:10
Как решить эту задачу на Паскале?...
DEKTG
26.02.2021 04:43
Сколько мегабайт информации содержит сообщение,информационный объём которого равен 0,125...
lizadaf2003
28.11.2020 00:21
нужно очень УМОЛЯЮ. если не сложно можно с подробными действиями и решением ...
cat0000000
20.05.2022 19:40
молю! Информатика 6 класс...
Sn00ру
23.06.2020 20:01
Акт лаборатория помагите...
ЗайчонокЛайм
05.06.2020 03:28
секундная стрелка за одну минуту описывает полный оборот вокруг оси Известно время(h часов и m минут сначала суток Сколько оборотов вокруг оси совершила секундная стрелка...
ilchumakovsky1
26.02.2023 23:32
3. Вычислить значение выражений по формулам (cos x/число пи-2x)+16x*cos(xy) -2Написать на Pascal...
Hdjfhdhe73747
05.06.2020 12:21
Как сделать переход на другую страницу в чтмл как в книге...
alanka280606
11.03.2020 21:36
Дано натуральне число n. У наступних n рядках дано по одному цілому числу. Виведіть кількість додатних серед цих чисел. Наприклад: Вхід Вихід 4 2 12 -4 0 20 Дано натуральне...
Faleck
29.01.2022 20:08
Разрабатываем проект Вы уже неоднократно учились разрабатывать проекты и успели убедиться, что проектная деятельность дает возможности: самостоятельно решить интересующую...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
k:=1;
while n>=k*k do
k:=k+1;
writeln(k);
end.