Все сови : написать программу котораяопределяет является ли число четнымили его запись окончательно целая 7
249
296
Ответы на вопрос:
Var n: integer; begin write('n = '); read(n); if (n mod 2=0) then writeln('число четное') else begin write('число нечетное и оно '); if abs(n mod 10)< > 7 then write('не '); writeln('оканчивается цифрой 7') end end. примеры n = 3538 число четное n = 642301 число нечетное и оно не оканчивается цифрой 7 n = 6306547 число нечетное и оно оканчивается цифрой 7 n = -546347 число нечетное и оно оканчивается цифрой 7
Var num: integer; begin read(num); if num mod 2 = 0 then write('число четное') else write('число нечетное'); end.
Апереведём в двоичную авс,1а_16=1010 1011 1100, 0001 1010_2 каждая цифра шестнадцати ручного представления становится четвёркой цифр в двоичном виде. теперь для перевода в восьмисотых систему будем отсекать по три бита от запятой, влево, и это будет целая часть, и потом вправо, это станет дробной частью =101 010 111 100, 000 110 100_2= справа получились только два бита, и их надо дополнить нулём =5274,064_8 б из восьмеричной переведём в двоичную 123,56_8=001 010 011, 101 110_2 переформатирование двоичное число по 4 бита в группе, при необходимости дополняя слева и справа недостающими нулями =0 0101 0011, 1011 1000_2= и заменим каждую четвёрку соответствующей шестнадцати яичной цифрой = 53,в8_16
Популярно: Информатика
-
Nastyusha22211.09.2021 19:23
-
Russiangirl2720.04.2023 11:16
-
gasersazru11.02.2021 07:18
-
ера200903.01.2023 00:11
-
лехаleha03.08.2022 19:24
-
LIONVIP17.05.2021 05:32
-
sashasevsova20.08.2020 06:04
-
лох25022.11.2021 03:02
-
noname000207.05.2021 23:12
-
Хомячок22521.02.2022 21:44