Ответ:Var a : Integer;
Begin
Readln(a);
If a mod 4 = 0 then Writeln('Сумма цифр: ',a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10)
else Writeln('Произведение цифр: ',(a div 1000)*(a mod 1000 div 100)*(a mod 100 div 10)*(a mod 10));
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:Var a : Integer;
Begin
Readln(a);
If a mod 4 = 0 then Writeln('Сумма цифр: ',a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10)
else Writeln('Произведение цифр: ',(a div 1000)*(a mod 1000 div 100)*(a mod 100 div 10)*(a mod 10));
end.
Объяснение: