Автор - daryal96 11 лет назад

помогите пожалуйста написать программу в паскале "дано целое число N (>0). Найти наибольшее целое число К, квадрат которого не превосходит N : K^2 <= N. функцию извлечения квадратного корня не использовать. " (используя оператор while) ребята, ВЫРУЧАЙТЕ!!!!

Ответ

Автор - nemolkl

var N,k:integer;
begin
  writeln('введите N');
  readln(N); K:=n div 2;
  while k*k>N do
    k:=k-1;
writeln(k);
end.
{Возможны и другие варианты}

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.