Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program d; var s : string; begins : = 'параллелограмм'; delete(s, 1, 9); delete(s, 3, 2); insert('о', s, 3); write(s); end.
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.
римские соответствия не все помню
Популярные вопросы