Дано целое число. Определить является ли четной цифра десятков. Вывести "YES", если vopros на ответ положительный и "NO"

@Андре123131 · Регистрация: 13.02.2019

for example
Test Input Result
1 1234 NO
4 6

@ZX Spectrum-128 · 19.11.2019, 14:20

Сообщение от Андре123131

Определить является ли четной цифра десятков

Pascal

var
  n: integer;
 
begin
  readln(n);
  writeln(not odd((n mod 100) div 10));
end.

@Андре123131 0 / 0 / 0 Регистрация: 13.02.2019 Сообщений: 18
		1
	Дано целое число. Определить является ли четной цифра десятков. Вывести "YES", если vopros на ответ положительный и "NO" 19.11.2019, 14:14. Показов 553. Ответов 1 Метки нет (Все метки) for example Test Input Result 1 1234 NO 4 6 0

Опции темы