Составьте программу,которая определяет,является ли сумма цифр введенного целого четырехзначного числа четным числом.
Answers & Comments
moboqe
Uses crt; var x,a,b,c,d:integer; begin readln(x); a:=x mod 10; b:=x div 10 mod 10; c:=x div 1000; d:=x div 100 mod 10; if((a+b+c+d) mod 2=0) then writeln ('Сумма цифр числа чётная') else writeln('Сумма цифр числа нечётная'); end.
1 votes Thanks 1
moboqe
согласен, коряво, давно паскаль не открывал
Answers & Comments
var x,a,b,c,d:integer;
begin
readln(x);
a:=x mod 10;
b:=x div 10 mod 10;
c:=x div 1000;
d:=x div 100 mod 10;
if((a+b+c+d) mod 2=0) then writeln ('Сумма цифр числа чётная')
else writeln('Сумма цифр числа нечётная');
end.