Степени двойки, Как? |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Степени двойки, Как? |
Orlangur |
3.12.2005 2:40
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 27 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Что то я не могу прошарить как решить вот такую задачу:
Написать программу, которая выводит таблицу степеней двойки (от нулей до десятой). Сообщение отредактировано: Orlangur - 3.12.2005 2:40 |
volvo |
3.12.2005 3:00
Сообщение
#2
|
Гость |
var i: integer; |
Orlangur |
3.12.2005 3:21
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 27 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Цитата ($0001 shl i) Это как понять? |
GoodWind |
3.12.2005 7:01
Сообщение
#4
|
Автооответчик Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
простой (но не лучший) вариант:
конечно вариант Volvo лучше, но мой понятнее -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
klem4 |
3.12.2005 11:40
Сообщение
#5
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вот так еще можно :
var -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Orlangur |
3.12.2005 14:09
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 27 Пол: Мужской Реальное имя: Александр Репутация: 0 |
Цитата var x,i:integer; begin writeln('2 ^ 0= 1'); x:=2; for i:=1 to 10 do begin writeln('2^', i:2, ' = ', x); x:=x*2; end; end. Точно!!! Я как раз примерно таким методом и хотел решить (удваивать результат), но так и не смог. Спасибо всем за помощь... Сообщение отредактировано: Orlangur - 3.12.2005 14:10 |
Текстовая версия | 21.05.2024 19:15 |