SHJordan

Untitled

Apr 11th, 2016
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.20 KB | None | 0 0
  1. Program Pzim ;
  2. var x,y:real;
  3. Begin
  4.   readln(x,y);
  5.   while y=0 do
  6.   begin
  7.     writeln('Divisor inválido, informe um divisor diferente de 0');
  8.     readln(y);
  9.   end;
  10.   x:=x/y;
  11.   writeln(x);
  12. End.
Advertisement
Add Comment
Please, Sign In to add comment