Страница 1 из 1
Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 12 сен 2007, 13:00
EvilFallos
Вообщем задача вроде ОЧ легкая но я полный 0 в паскале но мне нужно срочно
" Дано натуральное число n. Получить наименьшее число вида 2^r превосходящее n"
и ещё если можете напиши переменные что использовали ( напр n- исследуемое число, I- переменаая циклов ) ПЛЗ мпомогите срочно нужно
Re: Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 12 сен 2007, 14:26
BBB
Видимо, от тебя хотят увидеть что-то вроде этого:
Код: Выделить всё
var wPowerOf2 : word;
wPower : word;
begin
wPowerOf2 := 1; // искомое число
wPower := 0; // Искомый показатель степени "двойки"
while (N > wPowerOf2) do begin
wPowerOf2 := wPowerOf2 * 2;
Inc (wPower);
end;
writeln ('Наименьшая степень 2-х, большая ', N, ' равна: ', wPowerOf2, ' (2 в степени ', wPower, ')');
end.
Re: Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 12 сен 2007, 22:59
EvilFallos
СПАСИБО =))
Re: Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 13 сен 2007, 15:57
EvilFallos
эммм а само число N в type писать ?? ну и соответсвенно как прально и где задать N ( так чтоб прога тебя спросила N ) ???
Re: Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 13 сен 2007, 23:31
Serge_Bliznykov
в секции переменных
var N : integer;
а в программе
...
WriteLn;
Write('Введите N: ');
Readln( N );
...
Re: Лёгкая задачка ПОМОГИТЕ ПЛЗ
Добавлено: 14 сен 2007, 12:35
Хыиуду
Как вариант
writeln('Введите N');
readln(N);
Для кого-то оно так привычнее
