Дано натуральное число. Верно ли, что первая цифра данного числа - четная? Решить в турбо паскале, БЕЗ МАССИВОВ.

Question

Дано натуральное число. Верно ли, что первая цифра данного числа - четная? Решить в турбо паскале, БЕЗ МАССИВОВ.

Экономика

Гость

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

Accepted Answer

Program z1; Var n:integer;Begin write('Введите число - '); readln(n); while n>9 do n:=n div 10; if (n mod 2= 0) then writeln('Четна') else writeln('Нечетна');End.