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

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

Задать свой вопрос
1 ответ
Program z1;  Var n:integer;Begin  write('Введите число - ');  readln(n);  while ngt;9 do    n:=n div 10;    if (n mod 2= 0) then writeln('Четна')                    else writeln('Нечетна');End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт