Римская система счисления - частично позиционная, и по правилам этой системы счисления предложенное число можно представить так:
DCXLI = 500 + 100 - 10 + 50 +1 = 641
Однако, можно было и не производить вычисления. Так как предложенное число нечетное, а в списке вариантов ответов присутствует только одно нечетное число.
Ответ: Б
Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then
writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.
Var
a: array of integer;
i, n: integer;
begin
randomize;
n := Random(10) + 1;
SetLength(a, n);
writeln('Исходный массив');
for i := 0 to n-1 do begin
a[i] := Random(10);
write(a[i]:5, ' ');
end; writeln;
writeln('Возвести в квадрат');
for i := 0 to n-1 do begin
a[i] := sqr(a[i]);
write (a[i]:5, ' ');
end; writeln;
writeln('Заполнить степенями 2');
a[n-1] := 1;
for i := n-2 downto 0 do
a[i] := a[i+1] shl 1;
for i := 0 to n-1 do write (a[i]:5, ' ');
writeln;
writeln ('умножить на 3 во второй половине');
for i := n shr 1 to n-1 do
a[i] := (a[i] shl 1) + a[i];
for i := 0 to n-1 do write (a[i]:5, ' ');
writeln;
<span>end.</span>
Var n,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
case n of
3..9 : k:=1;
10..99 : begin
k:=1;
for i:=10 to n do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
end;
100..999:begin
k:=1;
for i:=10 to 99 do
if (i mod 10 = 3)or(i div 10 = 3) then k:=k+1;
for i:=100 to n do
if (i div 100=3)or(i div 10 mod 10=3)or(i mod 10=3) then k:=k+1;
end;
end;
writeln('k = ',k);
end.
Пример:
n = 120
k = 21