Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Паскаль Напечатать значение вводимого числа от 1 до 10 римскими цифрами

Ответ оставил Гость

Var
  i,n:byte;
begin
  Write(Введите натуральное число от 1 до 10: );
  Read(n);
  if not (n in [1..10]) then Writeln(Недопустимое значение)
  else
    Write(В римской записи: );
    case n of
    4: Writeln(IV);
    5: Writeln(V);
    6: Writeln(VI);
    7: Writeln(VII);
    8: Writeln(VIII);
    9: Writeln(IX);
    10: Writeln(X);
    else
      begin for i:=1 to n do Write(I); Writeln end
    end;
end.

Тестовое решение:
Введите натуральное число от 1 до 10: 3
В римской записи: III