Предмет: Информатика,
автор: момон1
У 3-х значного числа определить позицию чётные цифр. ЧЕРЕЗ ПАСКАЛЬ!!!
Ответы
Автор ответа:
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
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
if ((n div 10 mod 10) mod 2) = 0 then write(' 2 ');
if ((n mod 10) mod 2) = 0 then write(' 3 ');
Похожие вопросы
Предмет: Химия,
автор: irka226791
Предмет: Английский язык,
автор: grigorevsvatoslav6
Предмет: Алгебра,
автор: muzgulimavile
Предмет: Математика,
автор: АнастасияДанил
Предмет: Математика,
автор: sasha574