Д) смешанный вид
Знаю точно такой вопрос у меня был
Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
Произведение будет больше.
Например, возьмем 2 числа : 7 и 5
1) Находим сумму этих чисел.
7+5=12
2) Найдем произведение.
7×5=35
Сравним полученные результаты:
12<35
Таким образом, сумма меньше, чем произведение.
(Добуток бiльше чи сума)
Начало
взять лопату
почистить снег
положить лопату
Конец
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>