Перевести числа в двоичную систему счисления.если что,в скобках указываю систему. 95301(10)= 802(10)= 37(10)= 1702(8)= 61(8)= 523(8)= ав01сd(16)= 59a75(16)= 93501(16)=
263
375
Ответы на вопрос:
95301=10111010001000101 802=1100100010 37=100101 1702=1111000010 61=110001 523=101010011 ab01cd=101010110000000111001101 59a75=1011001101001110101 93501=10010011010100000001
Вы не те кавычки используете ‘ - такие нельзя, нужно вот такие " либо '
Var i, n, p1, p2, s: integer;
Begin
writeln ('vvedite chislo n');
readln (n);
{организовываем цикл с параметром от 10 до 99}
for i:= 10 to 99 do begin
p1:= i div 10; { выделяем первую цифру}
p2:= i mod 10; {выделяем последнюю цифру}
s:= p1+p2; {находим сумму цифр числа i}
{проверяем равна сумму цифр числа i числу n }
if s=n then writeln ('i=', i);
end;
readln;
end.
Популярно: Информатика
-
Sasha006789015.04.2023 23:41
-
innocen25.10.2020 23:13
-
68Diman08.01.2023 18:27
-
vladilichev08.03.2023 23:42
-
danilglazkov125917.11.2021 12:01
-
OlegBasov19.08.2022 05:36
-
krivisasha416.09.2021 13:53
-
komogortseva010106.01.2020 14:54
-
temaganenko31.05.2021 18:48
-
oksyanna29.10.2022 22:24