Tìm thấy 1 kết quả

Thời gian Nội dung Điểm thực lực Điểm cảm ơn
20/07/2021 10:33:18 <p>uses crt;<br />var n,_500,_200,_100 : integer;<br /><br />BEGIN<br />    clrscr;<br /><br />    write('N= ');readln(n);<br />    while (n>=500) do<br />      begin<br />          inc(_500);<br />          n:=n-500;<br />      end;<br />    while (n>=200) do<br />      begin<br />          inc(_200);<br />          n:=n-200;<br />      end;<br />    while (n>=100) do<br />      begin<br />          inc(_100);<br />          n:=n-100;<br />      end;<br />    writeln(n,' dong doi duoc thanh');<br />    writeln(_500,' to 500, ',_200,' to 200, ',_100,' to 100 va ',n,' dong le');<br /><br />    readln;<br />END.</p>