С клавиатуры вводится 5-значное число. Если первая и последняя цифры этого числа четные, вывести на экран "четные", в противном случае вывести "нечетные" помогите пж

Question

С клавиатуры вводится 5-значное число. Если первая и последняя цифры этого числа четные, вывести на экран "четные", в противном случае вывести "нечетные" помогите пж

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,a1,a2:integer; begin readln(a); a1:=a mod 10; //последняя цифра a2:=a div 10000;//первая цифра if (a1 mod 2 = 0)and(a2 mod 2=0) then writeln('четные') else writeln('нечетные'); end.