Дано целое число А(Аamp;gt;2).найти является ли число чётным либо нечётным (поочередно

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

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

var A:integer;
Begin
writeln('Введите число А');
readln(A);
while Agt;1 do A:=A-2;
if A=0 then writeln('А - четное, остаток ',A)
else writeln('А - нечетное, остаток ',A)
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт