halitovaalsu20

15.04.2021 02:01

Информатика

Есть ответ 👍

Объясните все в этом коде: больше всего не понимаю: begin inc(n); while (arabic[n] < = number) do begin snumber : = snumber + rome[n]; number : = number - arabic[n]; //writeln(snumber); end //программа для перевода арабских //чисел в римские const rome: array[1..13] of string = ('m', 'cm', 'd', 'cd', 'c', 'xc', 'l', 'xl', 'x', 'ix', 'v', 'iv', 'i'); arabic: array[1..13] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1); var number: integer; snumber: string; n: integer; //========================================= // основная программа //========================================= begin while(true) do begin repeat writeln('введите арабское число 1..3999'); number : = readinteger(); //если задан нуль, то работу с программой заканчиваем: if (number = 0) then exit; until ((number > = 1) and (number < = 3999)); //формируем строку с римским числом, //равным заданному числу number: n : = 0; snumber : = ''; while (number > 0) do begin inc(n); while (arabic[n] < = number) do begin snumber : = snumber + rome[n]; number : = number - arabic[n]; //writeln(snumber); end end; writeln(snumber); writeln(); end; end.