Розв'язати рівняння х+у/у, x-дiйсне,у-цiле

Question

Розв'язати рівняння х+у/у, x-дiйсне,у-цiле

Answer 1

X:Integer;
y:Real;
Begin
 Readln(x,y);
 Writeln(x+y/y);
end.