5.Берілген натурал сандарын рим цифрларымен басатын программа жаз program z12 11;
Label 1,2,3;
Var n,I:integer;ns:string;as:array[1..13] of string;a:array
[1..13] of integer;
Begin
Write (‘1-den 1999-ga deiingi sandardi engiz’);read(n);
NS:=’’;
A[1]:=1000;as[1]:=’M’;a[2]:=900;as[2]:=’cm’;
A[3]:=500;as[3]:=’D’;A[4]:=400;as[4]:=’cd’;
A[5]:=100;as[5]:=’C’;A[6]:=’XC’;
A[7]:=50;as[7]:=’L’;A[8]:=40;as[8]:=’Xl’;
A[9]:=10;as[9]:=’X’;A[10]:=’IX’;
A[11]:=5;as[11]:=’V’;A[12]:=4;as[12]:=’IV’;
A[13]:=1;as[13]:=’I’;
I:=1;
While n>0 do begin
Writeln (‘I,ns,a[I]’,I,n,s,a[I]);
While a[I]<=n do begin
Ns:=ns+as[I];n:n-a[I];end;
I:=I+1;End;
Write (‘rimdik cifr=’,ns);
Readln;
End.
