Помогите, пожалуйста, с программой в Паскале

[Андрей Романюк]

Помогите, пожалуйста, с программой в Паскале

среди чисел последовательности 1,2,4,8,16,32...найти количество чисел до первого шестизначного
я сделал так, но он не выводит правильный ответ:
program r_91;
uses crt;
var k:integer;{кол-во элементов}
el:integer;{элемент ряда}
begin
clrscr;
el:=1;
k:=0;
repeat el:=el*2;
k:=k+1;
until el>100000;
writeln(k);
readln;
end.
что не так? спасибо заранее)))

 

[Vladimir_S]

что не так? спасибо заранее)))

В принципе, всё так, кроме типа переменной el. Дело в том, что максимальное значение переменной типа Integer составляет 32767. Поэтому переменная el должна быть типа Longint (максимальное значение - 2147483647).

 

[Андрей Романюк]

ммм...понятно, спасибо огромное)))

 

[Vladimir_S]

ммм...понятно, спасибо огромное)))

Кстати, если почему-либо не нравится Longint, то можно поставить Real. Тоже годится.

 

[Андрей Романюк]

да нет наоборот, целое число лучше чем вещественное, у меня почему-то мозгов не хватило что integer слишком маленький диапазон охватывает(((((((