Дано натуральное число Х. Найдите такое максимальное целое число, квадрат которого не превышает Х.
Входные данные:
Число Х(1<=Х<=10^1000)
Выходные данные
Число, удовлетворяющее условию
Пример
Вх. данные|Выходные
16 4

Значит не знаю только как представить себе число 10^1000, такого типа данных помойму вообще нет, а длинной арифметикой очень долго. Знаю, что вроде легко решается, ну а как?
ограничения во времени 0,3с

Код

var b:boolean; x:integer; i:longint; begin readln(x); b:=true; i:=1; while b and (i < Max_LongInt{сам заполнишь}) do  begin   b:=sqr(i) < x;   if b    then     inc(i);  end; if b  then   if i = MaxLongInt    then     writeln('Число очень большое!!!')    else     writeln('Числа нет') {хотя это не выполнится...}  else   writeln(i); readln; end.

Вот-с....
Добавлено @ 19:20
А если подумав....

Код

var x:extended; begin readln(x); writeln(Trunc(sqrt(x))); readln; end.

Pakshin A. S., а если значащих цифр больше 20?

Возводим 111111111111111111111111111 в квадрат, полученное число скармливаем твоей программе.

Она его урезает до 20 цифр (ну или сколько там) и выдаёт ответ:
111111111111111111111111110 или 111111111111111111111111109.

Нет, без длинной арифметики никуда, имхо...
Добавлено @ 22:18
PS calc.exe именно так и урезал - до 111111111111111111111111109...

Нууу...
Паскаль же не принимает большие числа...

В данной постановке я бы посчитал, что задача нерешаема (с ограниченим времени)
Добавлено @ 22:27
В худшем случае придётся придётся перемножить около 1600 чисел (500/lg(2)) с 500 знаками. Столько же операций сравнения. Сколько это по времени?
Ну, это если использовать что-то типа деления отрезка пополам

А как сохранить примерно вот такое число, которое должно быть введено (Х):
10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 - 1
Добавлено @ 22:40
Упс...
Добавлено @ 22:41
Это же сколько пямять выделить надо?

А что это мы с большими работам... давайте перейдем к бесконечно малым... Т. Е. будем работать с 1/х, где х - введённое с клавы число (надо придумать, как приобразовывать).
Тогда ответ будет таким: хнаменатель дроби 1/trunc(sqrt(x));
Теперь надо будет только реализовать...

Вот... кое-что...

Код

var c:char; i:integer; x:extended; begin i:=10; read(c); x:=1/(ord(c) - ord('0')); read(c); while c <> #13 do  begin   x:=1/((1/x)*i + (ord(c) - ord('0')));   read(c);  end; writeln((sqrt(1/x)):20:1); readln; readln; end.

Может и не верно... простите...

>Это же сколько пямять выделить надо?

String[1000]. Много?

Цитата(Pakshin @ 25.11.2004, 22:54)

А что это мы с большими работам... давайте перейдем к бесконечно малым

Та же фигня, разрядности не хватит...

Цитата(Dr @ 23.11.2004, 18:03)

Входные данные

Вопрос: в каком виде они даны?

Цитата(cardinal @ 26.11.2004, 00:45)

Вопрос: в каком виде они даны?

Ну как в каком?
Входные:16
Выходные:4
Там же все написано в начале - Число Х(1<=Х<=10^1000)

Цитата(Dr @ 26.11.2004, 17:12)

Ну как в каком? Входные:16 Выходные:4

Это и слону понятно, я имел в виду как они передаются процедуре, в виде массива или строки, как такое число передать функции? Тут идет речь о BigNumbers или нет?

cardinal
Вообще по идее нам один чел говорил, который проверял задания, что он ее решит без BigNumbers. Насчет ввода я не знаю . По идее должно просто в переменную, а вот как?

А может с памятью работать напрямую...
Не знаю о чем только что сказал... но....

Dr.Death, спроси этого человека потом, как он это решил