Дано целое число А(А>2).определить является ли число чётным или нечётным (последовательно вычитаем из из числа А число 2 и определяем остаток)

При деление на два остаток только 1 или 0, выполняем вычитание пока А больше 1

var A:integer;
Begin
writeln(Введите число А);
readln(A);
while A>1 do A:=A-2;
if A=0 then writeln(А - четное, остаток ,A)
else writeln(А - нечетное, остаток ,A)
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.