Дано целое число А(А больше 2).определить является ли число чётным или нечётным (последовательно вычитаем из из числа А число 2 и определяем остаток)
Дано целое число А(А>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.
Не нашли ответ?
Похожие вопросы