Г) 1 бит..............................................
И вниз..жесткий диск, процессор, оперативная память
<span>var a,s:integer;
begin
write('a = ');
readln(a);
s:=(a div 10)+(a mod 10);
writeln('s = ',s);
end<span>.
Пример:
</span><span>a = 25
s = 7</span></span>
По закону Ома для участка цепи
<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>begin
var U:=ReadReal('U=');
var (r1,r2):=ReadReal2('R1,R2=');
Writeln('I=',U/(r1+r2))
end.
<u>Пример</u>U= 12
R1,R2= 10 6.5
I=0.727272727272727