Проверить 3-ех значеное на честность и на сумму его цифр, если четн, если нет то произведение его цифр

Question

Информатика

Радислава

3 июля, 11:49

Проверить 3-ех значеное на честность и на сумму его цифр, если четн, если нет то произведение его цифр

+4

Ответы (2)

Знаете ответ на вопрос?

Лиля · Answer 1

Var a, b, c, s:Integer;

begin

Read (s) ;

a: = s div 100;

b: = s div 10 mod 10;

c: = s mod 10;

if odd (s) then

WriteLn ('Нечетное. произведение чисел равно '+a*b*c)

else

WriteLn ('Четное. Сумма чисел равна ' + (a+b+c)) ;

end.

Милия · Answer 2

Var n:integer;

begin

Write ('Введите число=') ; Readln (N) ;

if odd (n) then begin

Writeln ('сумма цифр=', ((N mod 10) + ((N div 10) mod 10) + (N div 100)) ;

end

else

Writeln ('произведение цифр', ((N mod 10) * ((N div 10) mod 10) * (N div 100)) ;

end.