Программа:
Pascal:
var a, v, R: real;
begin
write('v = '); readln(v);
write('R = '); readln(R);
a := v*v / R;
writeln(a);
end.
Программа:
Pascal:
var a, v, R: real;
begin
write('v = '); readln(v);
write('R = '); readln(R);
a := v*v / R;
writeln(a);
end.