Предмет: Информатика, автор: момон1

У 3-х значного числа определить позицию чётные цифр. ЧЕРЕЗ ПАСКАЛЬ!!!

Ответы

Автор ответа: pacixor
1
var n: integer;
begin
write('Число = ');
readln(n);
write('Позиции четных цифр: ');
if not Odd(n div 100) then write(' 1 ');
if not Odd(n div 10 mod 10) then write(' 2 ');
if not Odd(n mod 10) then write(' 3 ');
end.


Пример:
Число = 834
Позиции четных цифр:  1  3

момон1: что такое Odd
pacixor: Проверяет число на четность.
pacixor: Можно поменять на:
pacixor: if ((n div 100) mod 2) = 0 then write(' 1 ');
if ((n div 10 mod 10) mod 2) = 0 then write(' 2 ');
if ((n mod 10) mod 2) = 0 then write(' 3 ');
Похожие вопросы
Предмет: Алгебра, автор: muzgulimavile
Предмет: Математика, автор: АнастасияДанил