PascalABC.NET beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.
Program Fibonacci;
Uses Crt;
var i,n:integer;
{Итерационный метод вычисления чисел Фибоначчи}
function fib_it(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;b:=1;
if (n=1) or (n=2) then fib_it:=1
else begin
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
fib_it:=c;
end;
end;
{main program}
begin
clrscr;
write('Введите n: ');
readln(n);
for i:=1 to n do write(fib_it(i),' ');
readkey;
end.