program raf105;
var U,R,I: real;
begin
write('Сопротивление R = ');
readln(R);
write('Напряжение U = ');
readln(U);
I:= U/R;
writeln('Сила тока в цепи I = ',I);
end.
program raf105;
var U,R,I: real;
begin
write('Сопротивление R = ');
readln(R);
write('Напряжение U = ');
readln(U);
I:= U/R;
writeln('Сила тока в цепи I = ',I);
end.
PascalABC 3.4.2