#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int first, second, temp;
cin >> first >> second;
if (first > second)
{
temp = first;
first = abs(first * second);
second = abs(temp - second);
}
else
{
temp = second;
second = abs(second * first);
first = abs(temp - first);
}
cout << first << " " << second;
}
Объяснение:
#include <iostream> // Библиотека ввода - вывода
#include <cmath> // Библиотека с математическими функциями
using namespace std; // Пространство имен
int main()
{
int first, second, temp; // Создание целочисленных переменных:
first - первое число, вводимое с клавиатуры;second - второе число, вводимое с клавиатуры;temp - переменная, для временного хранения одного из значений.cin >> first >> second; // Вводим с клавиатуры первое и второе числа
if (first > second) // Если значение переменной first > значения переменной second
{
temp = first; // Переменная временного хранения = значению переменной first
first = abs(first * second); // Значение переменной first (большей) = модулю произведения двух чисел
second = abs(temp - second); // Значение переменной second (меньшей) = модулю разности двух чисел
}
else // Иначе
{
temp = second; // Переменная временного хранения = значению переменной second
second = abs(second * first); // Значение переменной second (большей) = модулю произведения двух чисел
first = abs(temp - first); // Значение переменной first (меньшей) = модулю разности двух чисел
}
cout << first << " " << second; // Выводим значения переменных first и second
}
Определим информационный объём сообщения по формуле I = ki, где I – информационный объем сообщения, k – количество символов в сообщении, i – информационный вес одного символа.
Чтобы вычислить i нам формула N = 2^i, где N – мощность алфавита. В условии сказано, что мощность алфавита – 17 символов. Для кодировки 17 символов потребуется 5 бит. Проверим: 17 = 2^5 = 32. Пятью битами можно кодировать 32 символа, а четырьмя – 16. Нам подходит 5 битов.
Рассчитаем информационный объём сообщения: 45 × 5 = 225 бит.
ответ: 225 бит.
Паскаль АБС
var
i,count:integer;
a:array [1..16] of integer;
begin
for i:=1 to 16 do begin
a[i]:= Random (-20,20);
end;
for i:=1 to 16 do begin
if (a[i] = 0) then
writeln ('Нулевой элемент ',a [i]);
if (a [i] mod 2 = 1) then
writeln ('Индекс нечетного элемента ',i);
if (a [i] >0) then
inc (count);
end;
writeln ('Количество положительных чисел ',count);
end.