Построить последовательность чисел следующим образом

@Jekaua · Регистрация: 11.04.2011

Взят целое число i>1.Следующий член последовательности равен i/2,если i четное,и 3*i+1,если i нечетное.Если i=1,то последовательность останавливается.
За ранее спасибо!

@Zverit · 14.04.2011, 22:21

Pascal

 uses crt;
var i : integer ;
a : real;
begin
clrscr;
repeat
readln(i);
 if i>0 then
  if i mod 2=0 then
   a:= i/2;
  if i mod 2 = 1 then
   a:= 3*i+1;
 writeln (a:3:2);
until i = 1 ;
end.

@Jekaua · 14.04.2011, 22:38 **[ТС]**

Спасибочки!=)

@Jekaua 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 16
		1
	Построить последовательность чисел следующим образом 14.04.2011, 21:45. Показов 1616. Ответов 2 Метки нет (Все метки) Взят целое число i>1.Следующий член последовательности равен i/2,если i четное,и 3*i+1,если i нечетное.Если i=1,то последовательность останавливается. За ранее спасибо! 0

@Jekaua 0 / 0 / 0 Регистрация: 11.04.2011 Сообщений: 16
	14.04.2011, 22:38 [ТС]	3
	Спасибочки!=) 0

Опции темы

Построить последовательность чисел следующим образом

Решение