Ответы на вопрос:
Program oddnumeric; var n, i: integer; a: array [1..3] of byte; b: boolean; begin write('введите трехзначное число: '); readln(n); a[1]: =n div 100; {1 цифра сотен} a[2]: =(n div 10) mod 10; {2 цифра десятков} a[3]: =n mod 10; {3 цифра количество единиц} b: =false; for i: =1 to 3 do begin if (a[i] mod 2)=0 then b: =true; end; if b then writeln('в этом числе есть четные цифры') else writeln('в этом числе нет четных цифр'); end.
Популярно: Информатика
-
Karukart16.10.2022 08:02
-
ggwp4930.03.2022 11:32
-
WseNikiZanyati08.07.2020 19:53
-
гость16219.03.2023 09:22
-
lllsuprall19.09.2021 06:04
-
smile150605.09.2020 19:50
-
elit555516.03.2021 11:17
-
LizaIsaeva19704.12.2021 19:59
-
pandaokia09.10.2022 10:31
-
ivolobuewa201321.01.2021 01:33