Составить функцию которая определяет верно ли что сумма его цифр четное число. Пример: Введите число 136 сумма цифр четная........
На языке Pascal.ABC.NET
Answers & Comments
vlados400125
Function check(x:integer):boolean;var y: integer;beginy:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10);x:=x div 10;y:= y+ (x mod 10); if y mod 2 = 0 then check:=true else check:=false;end; beginwriteln(check(136));end.
2 votes Thanks 0
vlados400125
вставилось некрасиво но на результат не повлияет
Answers & Comments
if y mod 2 = 0 then check:=true else check:=false;end;
beginwriteln(check(136));end.