Паскаль.

@anka · Регистрация: 17.05.2014

Делаю контрольную, два задания не могу осилить. Помогите пожалуйста.
Задания в прикрепленном файле.

@mamedovvms · 06.10.2009, 13:37

Pascal

i:=1;
writeln('2');
b:=2;
while abs(a-b)<e do
 begin
    i:=i+1;
    a:=b;
    b:=2+1/a;   
    writeln(b);
 end;
writeln(i);

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

Pascal

a:=1;
b:=1;
i:=1;
while i<=p do
 begin
  i:=i+1;
  c:=a+b;
  a:=b;
  b:=c;
 end;
writeln(c);

@Puporev · 06.10.2009, 15:47

Pascal

1	while i>=p do

Пока больше, выполняем, как стало меньше, заканчиваем.

	06.10.2009, 15:47

Опции темы

Решение