Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  prog.pasc
Language: PASCAL
Code:
program a;
var
x:integer;
begin
writeln('Entre com o valor');
readln(x);

If (x>100) then
Begin
x:= x mod 100;
n100:=x div 100;
end;
Comments: