Z toho pola som mimo, napadlo ma to potom urobit cez if, bude to zbytocne dlhe ja viem ale to nevadi, dik Vám co ste sa snazili pomoct
Kód:
program rezistori;
var x,a,b,c,d,e,s:integer;
var p:real;
begin
writeln ('zadajte pocet R');
readln (x);
if x=2 then
begin
writeln ('zadajte R1');
readln (a);
writeln ('zadajte R2');
readln (b);
s:=a+b;
p:=(1/a)+(1/b);
writeln ('Vysledny seriovy odpor:',s);
writeln ('Vysledny paralelny odpor:',p);
end;
readln ();
end.
toto je len cast, zadam este podmienky x=3,4,5 atd. a pojde to
