Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Римская система счисления - частично позиционная, и по правилам этой системы счисления предложенное число можно представить так:
DCXLI = 500 + 100 - 10 + 50 +1 = 641
Однако, можно было и не производить вычисления. Так как предложенное число нечетное, а в списке вариантов ответов присутствует только одно нечетное число.
Ответ: Б
Формула количества информации
<span>N-кол-во цветов, i-кол-во бит на одну точку</span>