Дано 4-хзначное число. Используя логические величины, ответить на вопросы: является ли число четным; является ли вторая цифра числа четной. программа:PascalABC,NET помогите срочно пожалуйста!!!!!!!!!!!!!!!!!!!!
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.
Хочу статус Умник
Подожди крч пока не появится у тебя уведомление что можно выбрать лучший ответ
Ну буду не хорошист а умник
Вроде еще баллов дадут но хз