Предмет: Информатика
Автор: момон1
Вопрос задан 8 лет назад

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

Ответы

Ответ дал: pacixor

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 ');

Похожие вопросы

Русский язык

2 года назад

Ужи В сырых местах живут неядовитые змейки у них два желтых пятна на затылке ужи любят воду и хорошо плавают кормятся ужи лягушками и рыбами вы видели ужа не бойтесь его