Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Василий-Робот
TECHNO
26 / 26 / 8
Регистрация: 04.11.2009
Сообщений: 366
1

Натуральное число

25.11.2009, 18:22. Просмотров 435. Ответов 5
Метки нет (Все метки)

Вводится натуральное n. Поучить наименьшее число вида 2 в степени R, превосходящее n.

Код мой:
Pascal
1
2
3
4
5
6
7
8
9
10
 Program N6n4n5;
     uses crt;
     var n, i, a, s: integer;
     begin
     readln (n);
     S:=1;
     for i:=1 to 3 do
     s:=2*s;
     if s>n then writeln (s);
     end.
Куда втыкнуть f s>n then writeln (s); и вообще как правильно задавать условие?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2009, 18:22
Ответы с готовыми решениями:

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2,...

Найти натуральное наименьшее число n, факториал которого превышает число 4000
Написать программу для решения следующей задачи,используя,по крайней мере, два...

Даны натуральное число n, действительное число а. Выдать на экран последовательность чисел: а, а+1!, а+2!, а+3!, . , а+п!
вот есть програма которая просто виводит последовательность чисел без...

[Операторы цикла] Дано натуральное число n, и действительное число x. Вычислить
Доброго времени суток, много уважаемые форумчани. Прощу вас о помощи. По...

Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее n
Дано натуральное число n, получить наименьшее число вида 2^r, прувосходящее...

5
кот Бегемот
Платежеспособный зверь
8460 / 3906 / 1520
Регистрация: 28.10.2009
Сообщений: 10,126
25.11.2009, 18:40 2
Добавлено через 10 минут
с помощью for вряд ли получится

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
k,i:integer;
a:longint;
begin
readln(a);
repeat
a:=a div 2;
inc(k);
until a=0;
 a:=1;
for i:=1 to k do
a:=a*2;
writeln(a);
end.
0
Василий-Робот
TECHNO
26 / 26 / 8
Регистрация: 04.11.2009
Сообщений: 366
25.11.2009, 18:58  [ТС] 3
alexevt, при вводе a = 0 , ответ два. Верный ответ единица
0
alex0983
51 / 50 / 17
Регистрация: 30.10.2009
Сообщений: 152
25.11.2009, 19:15 4
Вот работая программа. Единственное может шаг R меньше сделать, чтобы число было ближе к введённому.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
R,n:integer;
i:real;
begin
writeln('Введите n');
readln(n);
R:=0;
repeat
i:=exp(R*ln(2));     {2 в степени R}
R:=R+1;
until i>n;
writeln(i:3:0);
readln;
end.
0
кот Бегемот
Платежеспособный зверь
8460 / 3906 / 1520
Регистрация: 28.10.2009
Сообщений: 10,126
25.11.2009, 19:22 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
k,i:integer;
a:longint;
begin
readln(a);
if a=0 then writeln (1) 
else begin 
repeat
a:=a div 2;
inc(k);
until a=0;
a:=1;
for i:=1 to k do
a:=a*2;
writeln(a);
end;
end.
1
Василий-Робот
TECHNO
26 / 26 / 8
Регистрация: 04.11.2009
Сообщений: 366
25.11.2009, 19:36  [ТС] 6
alexevt, спасибо!
0
25.11.2009, 19:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2009, 19:36

Дано натуральное число n. Получите наименьшее число вида 2^k, превосходящее n
Пусть дано натуральное число n. Получите наименьшее число вида 2^k,...

Дано натуральное число n получить наименьшее число вида 2^x превосходящее n
Дано натуральное число n получить наименьшее число вида 2^x превосходящее n....

Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.
Дано натуральное число N. Получить наименьшее число вида 4k, меньшее N.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru