Дано 4-хзначное число. Используя логические величины, ответить на вопросы: является ли

Дано 4-хзначное число. Используя логические величины, ответить на вопросы: является ли число четным; является ли 2-ая цифра числа четной.
программка:PascalABC,NET
помогите безотлагательно пожалуйста!!!!!!!!!!!!!!!!!!!!

Задать свой вопрос
1 ответ
Var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 =0 then writeln ('Число чётное') else writeln ('Число нечётное');
if ((a div 100) mod 2=0) then writeln ('2-я цифра чётная') else writeln ('2-я цифра нечётная');
end.
Любовь Гримак
Желаю статус Умник
Алиса Анбиндер
Подожди крч пока не появится у тебя извещение что можно избрать наилучший ответ
Виолетта Нехочина
Ну буду не хорошист а грамотей
Володя
Вроде еще баллов дадут но хз
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт