Если я что-то неправильно понял или сделал, пожалуйста, скажите об этом -- исправлю.
var
a1:= 2.0;
i,n:integer;
otv:real;
Begin
Write('Укажите, какой член последователности вы хотите найти: ');
Read(n);
if n=1 then write('a1 = 2') else
Begin
for i:=2 to n do
Begin
otv:=2+(1/a1);
a1:= otv;
End;
write('a'+n+' = '+otv);
End;
End.
Сейчас компьютерные презентации плотно вошли в нашу жизнь. Это отличный способ подачи информации, и следовательно, используются компьютерные презентации, где нужно подавать информацию. В школах, в университетах, во многих других образовательных учреждениях, в среднем, малом и крупном бизнесе, в государственных предприятиях. Как-то так.
Var x,y:real;
begin
read(x,y);
writeln((x+y)/2);
end;
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>9) and (a<100) and (a mod 5=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
Ответ d) obar.txt вроде...