A:
var
s: string;
i: integer;
begin
Write('Введите строку: ');
ReadLn(s);
for i := 1 to length(s) do
begin
if s[i] = '.' then s[i] := '0' else
if (s[i] = 'x') or (s[i] = 'X') then s[i] := '1' else
begin
s := 'Ошибка формата';
break;
end;
end;
WriteLn('Двоичный код: ', s);
end.
B:
var
s: string;
i: integer;
begin
Write('Введите строку: ');
ReadLn(s);
for i := 1 to length(s) do
if s[i] = '0' then s[i] := '1' else if s[i] = '1' then s[i] := '0';
WriteLn('Инверсия: ', s);
end.
Объяснение:
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "Rus");
int mas[17], s = 0, sr = 0, counter = 0, counter_p = 0;
for (int i = 0; i < 17; i++) {
cin >> mas[i];
if (mas[i] > 0) {
counter_p++;
sr += mas[i];
}
}
sr = sr / counter_p;
for (int i = 0; i < 17; i++) {
if (mas[i] > sr) {
counter++;
s += mas[i];
}
}
cout << "Количество элементов, которые больше среднего арифметического: " << counter << "\n";
cout << "Сумма элементов, которые больше среднего арифметического: " << s;
return 0;
}