Ррпвыпфычфа

гтддтвшвлутшвьвщбвдв

Объяснение:

тщьлвзщлцтугвьвыздылы8

работу примем за 1

v1=1/a

v2=1/b

t=1/(v1+v2) = ab/(a+b)

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.