Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон
4561,81,53,1,731,91это то что надо
Вместе: 194240229236255
Каждая буква отдельно: 194 240 229 236 255
Обозначим
. Тогда система превращается в такую:
Пусть
. Тогда
. Учитывая, что уравнение
имеет 1 решение
, а
- 3 решения, а также вспоминая, что все переменные независимы, получаем по правилу умножения, что в этом случае будет
решений.
Если
, всё будет так же с точностью до замены 1 на 0 и наоборот, в этому случае будет тоже 27 решений.
Всего возможных наборов 27 + 27 = 54.