Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ticket
Language: PASCAL
Code:
uses crt;
var H,K,N,hp,kp:integer; f,g:text;
begin
    assign(f,'ticket.in');
    assign(g,'ticket.out');
    reset(f);
    read(f,H,K,N);
    close(f);
    hp:=H*N;
    kp:=K*N;
    hp:=hp+kp div 100;
    kp:=kp mod 100;
    rewrite(g);
    write(g,hp,' ',kp);
    close(g);
end.
Comments: