Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может,...

Question

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может, напишите пожалуйста алгоритм решения для программы Паскаль

Answer 1

Var a,b,c,k:integer;
begin
read(a); c:=10; b:=0;
for k:=1 to 3 do begin
b:=b + a mod c; c:=c+10; end;
if (b mod 2= 0) then write ('Norm') else write ('Nechetnoe');
end.

Comments

Мы такое еще не проходили, всм "do","for"

---

скажешь индивидуально тему выучила)

---

аххах я уже решила

---

program z7;
var a :integer;
begin
read(a);
if((a div 100)+((a div 10) mod 10)+(a mod 10)) mod 2 = 0 then write('Сумма цифр числа четная') else write('Сумма цифр числа нечетная');
end.