Дано натуральное число.Найти первую цуфру числа.Верно ли что она четная?

Question

Дано натуральное число.Найти первую цуфру числа.Верно ли что она четная?

Comments

Что нужно дать в ответе? Словесный алгоритм, блок-схему или программу на каком-то языке? Добавьте в условие задачи.

Answer 1

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.

Answer 2

Раз натуральное, значит целое, но не значит, что чётное. Надо делить на 10 и избавляться от остатка, пока не останется одна цифра(То есть, при последующем делении на 10 выйдет число меньше 1). Дальше сравниваешь если цифра делиться на 2 без остатка и получаешь тебе ответ. Если без остатков, то цифра чётная, если же с остатком при делении на 2, то цифра нечётная.

Если тебе нужен сам алгоритм, то можешь отметить ответ, как нарушение, но я тебе дал ответ, как бы решал я. Языков программирования много не знаю, так что писать алгоритм не буду.