Число в римска бройна система

Да се въведе число от 1 до 20 и да се изведе, записано в римска бройна система

Публикувано в с етикети . Постоянна връзка.

2 коментара по Число в римска бройна система

  1. Viktoria Velichkova каза:
    program RimskiChisla;
    var
      chislo: integer;
    begin
      Write('Vavedete chislo (ot 1 do 20): ');
      ReadLn(chislo);
      if (chislo > 10) then
      Write('X');
      Case (chislo mod 10) of
       1: WriteLn('I');
       2: WriteLn('II');
       3: WriteLn('III');
       4: WriteLn('IV');
       5: WriteLn('V');
       6: WriteLn('VI');
       7: WriteLn('VII');
       8: WriteLn('VIII');
       9: WriteLn('IX');
       10: WriteLn('X');
      end;
      ReadLn;
    end.
    

Вашият коментар