Дано натуральное число. Верно ли, что первая цифра данного числа - четная? Решить в турбо...

Question

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

Answer 1

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.