1. Найти сумму четных цифр и произведение нечетных цифр заданного целого числа х 2. Найти количество четных цифр и нечетных цифр заданного целого числа х
3. Вывести удвоенное число х, если количество четных цифр больше количества нечетных цифр заданного целого числа х и квадрат этого числа, если наоборот, т.е.нечетных больше, чем четных цифр
4. Определить, сколько раз в заданном числе присутствует цифра 1
, СДЕЛАТЬ В ПИТОН. ХОТЯ БЫ ЧТО-ТО...
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ф1, ф2: РЯД 50 ИЗ ЗНАК;
УКАЗ
Вывод.Цепь("Введите первую фамилию: ");
Приём.Строка(ф1);
Вывод.Цепь("^Введите вторую фамилию: ");
Приём.Строка(ф2);
ЕСЛИ ДЛИНА(ф1) > ДЛИНА(ф2) ТО
Вывод.Цепь('Фамилия "');
Вывод.Цепь(ф1);
Вывод.Цепь('" имеет больше символов, чем "');
Вывод.Цепь(ф2);
Вывод.Цепь('".')
АЕСЛИ ДЛИНА(ф1) < ДЛИНА(ф2) ТО
Вывод.Цепь('Фамилия "');
Вывод.Цепь(ф2);
Вывод.Цепь('" имеет больше символов, чем "');
Вывод.Цепь(ф1);
Вывод.Цепь('".')
ИНАЧЕ
Вывод.Цепь("Фамилии одинаковой длины.")
КОН
КОН Задание.