Найти наибольшее целое число K, квадрат которого не превосходит N

@ogrem · Регистрация: 07.10.2010

Author24 — интернет-сервис помощи студентам

как решить? Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 ≤ N. Функцию извлечения квадратного корня не использовать.

@Mawrat · 07.10.2010, 17:27

Pascal

program Project1;
 
var
  X, Y : Extended;
  S : String;
begin
  repeat
    Writeln('Задайте неотрицательное число Y:');
    Readln(Y);
    if Y < 0 then begin
      Writeln('Число должно быть неотрицательным. Повторите ввод.');
      Continue;
    end;
 
    X := 1;
    while X * X  <= Y do begin
      X := X + 1;
    end;
    X := X - 1;
 
    Writeln('X = ', X:0:10);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

@ogrem · 20.10.2010, 15:49 **[ТС]**

с точным решением

@Snoopy · 20.10.2010, 15:53

да вы, я смотрю, наглый, совсем уж плохой?

@ogrem · 21.10.2010, 14:57 **[ТС]**

зарение спасибо

@Puporev · 21.10.2010, 16:12

Pascal

uses crt;
var n,k:longint;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
while k*k<n do k:=k+1;
if k*k>n then k:=k-1;
writeln('k=',k,' k^2=',k*k);
readln
end.

Найти наибольшее целое число K, квадрат которого не превосходит N

Решение

Решение

@ogrem 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
		1
	Найти наибольшее целое число K, квадрат которого не превосходит N 07.10.2010, 15:48. Показов 8087. Ответов 5 Метки нет (Все метки) как решить? Дано целое число N (> 0). Найти наибольшее целое число K, квадрат которого не превосходит N: K2 ≤ N. Функцию извлечения квадратного корня не использовать. 0

@ogrem 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
	20.10.2010, 15:49 [ТС]	3
	с точным решением 0

@Snoopy 1915 / 1065 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	20.10.2010, 15:53	4
	да вы, я смотрю, наглый, совсем уж плохой? 0

@ogrem 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 5
	21.10.2010, 14:57 [ТС]	5
	зарение спасибо 0

	21.10.2010, 16:12