определить количество элементов последовательности

@Mikula Patariel · Регистрация: 28.09.2009

определить количество элементов последовательности 2 в степени 1,2 в степени 2...2 в степени n,которые попадают в интервал [10;150]

@System.exe · 11.10.2009, 19:19

Pascal

Var i,a:integer;
begin
for i:=4 to 7 do
begin
a:=exp(i*ln(2));
j:=j+1
end;
writeln('kol-vo elementov=', j:5:2)
end.

@Puporev · 11.10.2009, 19:39

writeln('kol-vo elementov=', j:5:2)

Вывод 4.15 элемента?

Добавлено через 17 минут

Pascal

uses crt;
var i:byte;
begin
clrscr;
i:=2;
while i*2<=150 do
 begin
  i:=i*2;
  if i in [10..150] then write(i,' ');
 end;
readln
end.

@g-gurda · 15.04.2012, 15:16

а можно тоже самое только с repeat И until ??=)

@Mikula Patariel 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 31
		1
	определить количество элементов последовательности 11.10.2009, 18:08. Показов 1207. Ответов 3 Метки нет (Все метки) определить количество элементов последовательности 2 в степени 1,2 в степени 2...2 в степени n,которые попадают в интервал [10;150] 0

@g-gurda 0 / 0 / 0 Регистрация: 15.04.2012 Сообщений: 9
	15.04.2012, 15:16	4
	а можно тоже самое только с repeat И until ??=) 0