1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
16 = 2^4 , значит вес одного символа 4 байта
Всего символов 384, значит вес всего сообщения равен:
384*4 = 1536 (байтов)
1536 байтов = 1,5 килобайтов
Ответ: сообщение будет весить 1,5 килобайтов.
A = int(input())
if 2 <= a <= 5:
a += 10
elif 7 <= a <= 40:
a -= 100
elif a <= 0 or a > 3000:
a *= 3
else:
a = 0
print(a)
Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.