Составьте программу которая определяет являеться ли сумма цифр введённого целого трёхзначного числа чётным числом

Question

Составьте программу которая определяет являеться ли сумма цифр введённого целого трёхзначного числа чётным числом

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,c,d,e:integer; begin read(a); c:=a mod 10 ; b:=a div 10 mod 10; d:= a div 100 mod 10; e:=c+d+b; if e mod 2 =0 then write('Четное') else write('Нечетное'); end.