Pascal ABC while 7 Дано целое число N (>1). Найти наименьшее целое положительное число - №5924724

Pascal ABC
while 7
Дано целое число N (>1). Найти наименьшее целое положительное число K, квадрат которого превосходит N:K^2 меньше или равно N. Функцию извлечения квадратного корня не использовать.
- Предмет:
  Информатика
- Автор:
  hatfield
- 5 лет назад

Ответы 1

Var n, k, c : integer; Begin Readln (n) ; K:=0; While c
- Автор:
  cristian499
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

Разбор предложение (где здесь сказуемое и подлежащее?)
Поздней осенью настал час покинуть перелетным птицам страну льдов и незаходящего солнца.
- Предмет:
  Русский язык
- Автор:
  redfiwf
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Брать-взять, Класть-положить,приходить-прийти ,Ложиться-лечь.Ловить-Поймать.
Составь 2 предложения с любыми парами глаголов
- Предмет:
  Русский язык
- Автор:
  emberztcw
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Почему тупым ножом трудно резать хлеб?
- Предмет:
  Физика
- Автор:
  carelyntbz4
- 5 лет назад
- Ответов:
  
  1
- Смотреть
с помощью какого выражения можно решить задачу? *В четырёх одинаковых коробках 80 банок консервов. Сколько банок в трёх таких коробках? 40 х 80 : 3 80 х 3 : 4 80 : 40 х 3 480 : (4 - 3)
- Предмет:
  Математика
- Автор:
  brogansysc
- 5 лет назад
- Ответов:
  
  2
- Смотреть

How much to ban the user?

1 hour 1 day 100 years