Раз натуральное, значит целое, но не значит, что чётное. Надо делить на 10 и избавляться от остатка, пока не останется одна цифра(То есть, при последующем делении на 10 выйдет число меньше 1). Дальше сравниваешь если цифра делиться на 2 без остатка и получаешь тебе ответ. Если без остатков, то цифра чётная, если же с остатком при делении на 2, то цифра нечётная.
Если тебе нужен сам алгоритм, то можешь отметить ответ, как нарушение, но я тебе дал ответ, как бы решал я. Языков программирования много не знаю, так что писать алгоритм не буду.
Program N; Var A:integer; Begin ReadLn(A); While A>9 do A:= A div 10; if A mod 2 = 0 then Writeln('Первая цифра чётная') else WriteLn('Первая цифра нечётная'); ReadLn End.
Если тебе нужен сам алгоритм, то можешь отметить ответ, как нарушение, но я тебе дал ответ, как бы решал я. Языков программирования много не знаю, так что писать алгоритм не буду.
Var A:integer;
Begin
ReadLn(A);
While A>9 do
A:= A div 10;
if A mod 2 = 0 then Writeln('Первая цифра чётная')
else WriteLn('Первая цифра нечётная');
ReadLn
End.