vj1041 神风堂人数

Vj1041 神风堂人数

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
var p,q:real; ans:integer; procedure init; begin readln(p,q); end; procedure main; var i:integer; begin p:=p/100; q:=q/100; i:=0; repeat inc(i); until trunc(i*q-1e-8)-trunc(i*p+1e-8)>0;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ans:=i; end; procedure print; begin writeln(ans); end; begin init; main; print; end....
View Full Document

Ask a homework question - tutors are online