a053. Sagit's 計分程式 -- Sagit's 教學題 | From: [101.224.96.16] | 發表日期 : 2015-07-18 15:40

a053. Sagit's 計分程式 -- Sagit's 教學題 | From: [101.224.96.16] | 發表日期 : 2015-07-18 15:43

var

  a:byte;

begin

  while not eof do begin

  readln(a);

  if a>0 or a<=10 then writeln(a*6);

  if a>10 or a<=20 then writeln((a-10)*2+10*6);

  if a>20 or a<=40 then writeln(10*6+10*2+(a-20)*1);

  if a>40 then writeln(100);

  end;

end.