.........характерные черты?
"Беларусь - край озер, <span>лесов </span>и рек"
Const n = 20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5=0) then
Writeln('elem nomer ' , i)
<span>end.</span>
#include <iostream>
#include <string>
using namespace std;
string arabicToRoman(unsigned &number)
{
const unsigned count = 13;unsigned arabic[count] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1
}, i, j;
string roman[count] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX",
"V", "IV", "I" }, result = "";
for (i = 0; i < count; i++) {
for (j = 0; j < number / arabic[i]; j++) {
result += roman[i];
}
number %= arabic[i];
}
return result;
}
int main()
{
unsigned uin = 0;
cin >> uin;
cout << arabicToRoman(uin);
system("pause");
return 0;
}