1. Видимо 2 круга никак не пересекающихся друг с другом, один для чет другой для нечет
2. Предикат : все четные числа состоят из множества всех чисел минут множество всех нечетных чисел
1) Крик
2)Барабан
3)Интернет
4) Передатчик
5)Телефон
6)Костёр
7)Телевизор
8)Радиосвязь
9)Морзе
10) Приёмник
…………………………………………
Получилось слово КАНАЛ СВЯЗИ.
Решение, который дал другой пользователь, слишком сложное. Я могу предложить альтернативный вариант, который будет гораздо проще в понимании.
Var a,s,s1:integer;
Begin
write('Введите число -> ');
readln(a);
s1:=1;
while a>0 do
begin
s:=s+(a mod 10);
s1:=s1*(a mod 10);
a:=a div 10;
end;
writeln('Сумма цифр числа равна -> ',s);
writeln('Произведение цифр числа равно -> ',s1);
End.
Находит максимум среди 5 введенных целых чисел и выводит его.
Ответ:
336
Объяснение:
чтобы перевести сделаем так:
0*8^0 + 2*8^1 + 5*8^2 = 336 в десятичной системе счисления