У 3-х значного числа определить позицию чётные цифр. ЧЕРЕЗ ПАСКАЛЬ!!!
У 3-х значного числа определить позицию чётные цифр. ЧЕРЕЗ ПАСКАЛЬ!!!
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program findEvenDigitsPosition;
var
number, digit, position: integer;
begin
write('Enter a three-digit number: ');
readln(number);
position := 1;
while number <> 0 do
if digit mod 2 = 0 thenbegin
digit := number mod 10;
writeln('Position of even digit ', digit, ' is ', position);
number := number div 10;
position := position + 1;
end;
end.