Страница 1 из 1
Легкая задача, но я решить не могу
Добавлено: 30 ноя 2007, 17:27
Тимур
ват задача которую я не могу решить помогите чем можите:
Написать программу которая выводит таблицу степеней двойки (от нулевой да десятой). Ниже представлен рекомендуемый вид экрана во время работы программы.
Таблица степеней двойки.
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
Re: Легкая задача, но я решить не могу в Pascal
Добавлено: 30 ноя 2007, 20:15
Тимур
[quote="Тимур"]ват задача которую я не могу решить помогите чем можите:
Написать программу которая выводит таблицу степеней двойки (от нулевой да десятой). Ниже представлен рекомендуемый вид экрана во время работы программы.
Таблица степеней двойки.
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
Re: Легкая задача, но я решить не могу
Добавлено: 30 ноя 2007, 20:35
LovesaN
var
i:integer;
begin
for i:=0 to 10 do
writeln(i,' ',exp(i*ln(2)));
end.
Re: Легкая задача, но я решить не могу
Добавлено: 30 ноя 2007, 23:07
somewhere
Код: Выделить всё
var i : integer;
begin
for i:=0 to 10 do Writeln(i,' ',1 shl i);
end.
Re: Легкая задача, но я решить не могу
Добавлено: 03 дек 2007, 12:04
BBB
somewhere писал(а):Код: Выделить всё
var i : integer;
begin
for i:=0 to 10 do Writeln(i,' ',1 shl i);
end.
Не пугай человека (и его препода) СТРАШНОЙ операцией SHL! :lol:
Код: Выделить всё
var i : integer;
iPower : longint;
begin
iPower := 1;
Writeln(0,' ', iPower);
for i:=1 to 10 do begin
iPower := 2 * iPower;
Writeln(i,' ', iPower);
end;
end.