<span>дверь - дверной проем ; открывать - ремонтировать</span>
<span>окно - стекло ; мыть - разбивать</span>
автомобиль - сидение ; покупать - пачкать
Е<span>сли в алфавите 64 символа, то каждый знак кодируется 6 битами, потому что 64 = 2^6. </span>
<span>20 символов по 6 бит содержат 20*6 = 120 бит = 120/8 = 15 байт.</span>
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.
Program z1;
var y,a,b:real;
writeln('введите а и b');
readln(a,b);
if (a+b) mod (a-b)=0 then
writeln('значение данной функции является целым числом')
else
writeln('значение данной функции не является целым числом');
if a=b then
writeln ('функция не существует');
end.