Найти первый отрицательный член последовательности

@sergi_geras · Регистрация: 12.10.2013

Author24 — интернет-сервис помощи студентам

Перевод условия на русский:
Дано действительное положительно число b. Последовательность .....
образована по закону ....
Найти первый отрицательный член последовательности.

@sergi_geras · 12.10.2013, 13:32 **[ТС]**

еще одно. массивы не использовать.

@Puporev · 12.10.2013, 13:53

Не понял для чего здесь b, ввели бы сразу а1

Pascal

uses crt;
var a,b:real;
    i:integer;
begin
clrscr;
repeat
write('Введите положительное действительное число b=');
readln(b);
until b>0;
a:=b;
i:=1;
while a>=0 do
 begin
  a:=a-1/sqrt(i);
  writeln('a=',a:0:2);{для проверки, можно и убрать}
  i:=i+1;
 end;
write('Первое отрицательное=',a:0:2);
readln
end.

@sergi_geras 0 / 0 / 0 Регистрация: 12.10.2013 Сообщений: 5
		1
	Найти первый отрицательный член последовательности 12.10.2013, 13:22. Показов 1572. Ответов 2 Метки нет (Все метки) Перевод условия на русский: Дано действительное положительно число b. Последовательность ..... образована по закону .... Найти первый отрицательный член последовательности. Миниатюры 0

@sergi_geras 0 / 0 / 0 Регистрация: 12.10.2013 Сообщений: 5
	12.10.2013, 13:32 [ТС]	2
	еще одно. массивы не использовать. 0

	12.10.2013, 13:53

Найти первый отрицательный член последовательности

Решение