Да
в СИС теме много схем вот одна 546родикалит82-гом
Мы течём по проводам
Мы течём в розетке
220 вольт это не конфетки!
Если я что-то неправильно понял или сделал, пожалуйста, скажите об этом -- исправлю.
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, z: <em>real</em>;
a, b, c: <em>real</em>;
begin
readln(x, y, z);
if (x + y < 1) then
begin
a := (y + z) / 2;
b := (x + z) / 2;
c := (x + y) / 2;
x := a;
y := b;
z := c;
end
else
begin
x := sqr(x);
y := sqr(y);
z := sqr(z);
end;
writeln(x, ' ', y, ' ', z);
end.