С клавиатуры вводится 5-значное число. Если первая и последняя цифры этого числа четные, вывести на экран "четные", в противном случае вывести "нечетные"
помогите пж
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
