Дано натуральное число N ,правдали,что сумма цифр етого числа-непарная?если несложно-выложите код програ

[Dima170792]

Доброго времени суток ув.форумчане.Снова обращаюсь за помощью в решении задачи по информатике (язьк Borland Delphi 7),задача состоит в следующем-мне нужно написать программу ,которая будет решать такуюзадачу: Дано натуральное число N ,правдали,что сумма цифр етого числа-непарная?если несложно-выложите код программы!Заранее благодарен!

[Mad_Cat]

s:=0;
while x<>0 do
begin
s:=s+x mod 10 ;x:=x div 10;
end;
showmessage((s mod 2) = 0);

[Dima170792]

Сообщение от Mad_Cat

s:=0;
while x<>0 do
begin
s:=s+x mod 10 ;x:=x div 10;
end;
showmessage((s mod 2) = 0);

обьясните пожалуста если не сложно -как адаптировать под Delphi7?

[Mad_Cat]

объясните пожалуста если не сложно -как адаптировать под Delphi7?

дописать 1 строку)

x:=strtoint(edit1.text);

и вставить в обработчик нажатия кнопки
ну и 2 переменные описать

var s,x:integer;