Написать программу в паскале - вводится латинское число (любое) выдать его в текстовой форме, например вводится( mdclx\/i ), вадать (тысяча шестьсот шесдисят шесть).

178

258

Посмотреть ответы 2

Ответы на вопрос:

znarineozszf8

Информатика

4,7(97 оценок)

не стал писать проверку на правильность введения римского числа. так что вводить нужно аккуратно, без ошибок, в верхнем регистре.

var a, stroka: string;

i,n,t,s,d,e,x : integer;

b: array[1..20] of integer;

type slova = array[0..9] of string[15];

const

edinit : slova = ('',' один',' два',' три',' четыре',' пять',' шесть',' семь', ' восемь',' девять');

desyat : slova = ('',' десять',' двадцать',' тридцать',' сорок',' пятьдесят', ' шестьдесят',' семьдесят',' восемьдесят ',' девяносто');

sotnya : slova = ('',' сто',' двести',' триста',' четыреста',' пятьсот',' шестьсот',' семьсот',' восемьсот',' девятьсот');

teeeen : slova = ('',' одинадцать',' двенадцать',' тринадцать',' четырнадцать', ' пятнадцать',' шестнадцать',' семнадцать',' восемьнадцать', ' девятнадцать');

tyscha : slova = ('','одна тысяча','две тысячи','три тысячи','четыре тысячи','пять тысяч','шесть тысяч','семь тысяч', 'восемь тысяч','девять тысяч');

begin

writeln('введите римское число: ');

readln(a);

{записываем число как сумму арабских эквивалентов в массив}

for i: =1 to length(a) do

case a[i] of

'i': b[i]: =1;

'v': b[i]: =5;

'x': b[i]: =10;

'l': b[i]: =50;

'c': b[i]: =100;