Составить функцию которая определяет верно ли что - вопрос №8992705 от genyaryabinina 20.04.2021 09:29

Question

Информатика: Составить функцию которая определяет верно ли что сумма его цифр четное число. пример: введите число 136 сумма цифр на языке pascal.abc.net

genyaryabinina · Answer

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.