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

Публикувано на 07 март, понеделник от Данаил

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

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

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

  1. Viktoria Velichkova каза:
    07 март, понеделник в 16:43 
    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.

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