Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1, 2, 5, 9 -однозначные числа
10, 25, 40, 41 - двузначные числа
1, 2, 11, 29 - простые числа
var a: integer;
s: string;
begin
read(a);
case a of
1: s: ="i";
5: s: ="v";
10: s: ="x";
50: s: ="c";
100: s: ="c";
500: s: ="i";
1000: s: ="m;
end;
writeln(s);
end.
римские соответствия не все помню
Популярные вопросы