субота, 26 вересня 2009 р.

Послідовне сполучення опорів.

Program OpirPoslidovno;
Var R1,R2,R3,R:integer;
begin
Write('R1,R2,R3 = ');
Readln(R1,R2,R3)
R=R1+R2+R3;
Writeln('R = ',R);
end.
Опубліковано о

Немає коментарів:

Дописати коментар

Підписатися на: Дописати коментарі (Atom)