var a,b,c,d,q :integer;
begin
c:=1;
d:=2;
writeln(c,' ',d);
for q:=1 to 6 do
begin
c:=c+3;
for a:=1 to c do
d:=d*2;
writeln(c,' ',d);
end;
end.
Другие языки программирования и технологии
Что не правильно? Должна выводиться степень двойки+3 и двойка в этой степени. например: 4 - 16; 7 - 128 ; и т.д.
Сергей Касаткин
139
так ты определись 2^(x+3) или 3+2^x
Инициализацию d забыл для каждого вычисления
PS: Это можно и упростить
for q:=1 to 6 do
begin
c:=c+3;
заменив на
for с:=1+3 to 6+3 do
begin
PS: Это можно и упростить
for q:=1 to 6 do
begin
c:=c+3;
заменив на
for с:=1+3 to 6+3 do
begin
David Zakarian
56 990
Сергей Касаткин
Спасибо огромное
парень, ты не торопись. ну что это такое - ты ни себе, ни людям, ни тем более компу не можешь четко и внятно объяснить задачу.
итак (объясняем себе и компу):
итак (объясняем себе и компу):
{ программа для возведения двойки в заданную пользователем степень}
PROGRAM q231523042;
{ переменные, которые нам понадобятся }
VAR
i, n :integer;
result :longint;
{ НАЧАЛО ПРОГРАММЫ }
BEGIN
{ шаг 1 - выясняем у пользователя, что ему нужно }
Write('введите степень двойки: ');
ReadLn(n);
(* шаг 2 - считаем степень двойки. Это битовый сдвиг:
2^1 = 1 shl 1 = 10 = 2
2^2 = 1 shl 2 = 100 = 4
2^3 = 1 shl 3 = 1000 = 8 и т.д.
*)
result := 1 shl n;
{ шаг 3 - радуем пользователя результатом }
WriteLn('2^', n, ' = ', result);
{ шаг 4 - прощаемся }
WriteLn('для выхода нажмите вход!');
ReadLn();
END.
{ КОНЕЦ ПРОГРАММЫ } Ангел Небесный
55 442
Все значительно проще
for q:=1 to 6 do WriteLn(q, ' ', 1 shl q);
Сделать из этого степени с шагом три не представляет никаких трудностей.
for q:=1 to 6 do WriteLn(q, ' ', 1 shl q);
Сделать из этого степени с шагом три не представляет никаких трудностей.
Суминов Евгений
обломал человеку интригу. Сразу с козырей....
Похожие вопросы
- Определите пожалуйста, какие географические объекты имеют координаты: 1. 28° ю.ш. и 138° в.д. 2. 4° с.ш. и 10° в.д. 3
- как возвести в Паскале выражение в произвольную степень? например в четвертую.
- Как правильно создавать свой сайт и викладывать там свои проги и т. д
- в 16 лет уже поздно начинать изучать компьютер? (взломы, написание программ и т.д.)
- Какой архиватор более лучший. winzip.winrar.7-zip.alzip и т. д. очень важно. и где скачать бесплатно?
- По поводу битов, байтов и т. д.
- в сети 3 маршрутизатора. Как сделать, чтобы попадать в настройки через 192.168.1.2, 192.168.1.3 и т. д
- Почему программисты, сидящие здесь, хотят, чтобы в школах вместо паскаля изучали С++ C# и т.д.?
- вчера поймал баннер виндовс заблокирован и т. д. откатил систему вроди все норм. но сегодня стала твориться мистика.
- Как выучиться на программиста в домашних условиях. Какие хорошие книги и т.д. Какие хорошие книги и т.д
т.е
4 - 2^4