ПАСКАЛЬ ABC! ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ! Дано многозначное число, проверьте , является ли его сумма четной
Answers & Comments
danulpopov var x, sum:integer; Begin Write('Введите число '); Readln(x); while (x > 0) do begin sum:= sum + x mod 10; x:=x div 10 end; if (sum mod 2 = 0)then Writeln('YES') else Writeln('NO'); end.
Answers & Comments
var
x, sum:integer;
Begin
Write('Введите число '); Readln(x);
while (x > 0) do begin
sum:= sum + x mod 10;
x:=x div 10
end;
if (sum mod 2 = 0)then
Writeln('YES')
else
Writeln('NO');
end.