2. Записать нижеследующие числа позиционной системы счисления в развернутой форме (учитывая основание каждой): 1234510 =
1001102=
12A5B0F16=
220
362
Ответы на вопрос:
12345_10 = 1 * 10⁴ + 2 * 10³ + 3 * 10² + 4 * 10¹ + 5 * 10⁰
100110_2 = 1 * 2⁵ + 0 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 0 * 2⁰
12A5B0F_16 = 1 * 16⁶ + 2 * 16⁵ + А * 16⁴ + 5 * 16³ + В * 16² + 0 * 16¹ + F * 16⁰ = 1 * 16⁶ + 2 * 16⁵ + 10 * 16⁴ + 5 * 16³ + 11 * 16² + 0 * 16¹ + 15 * 16⁰
Объяснение:
Развернутая форма записи числа - сумма произведений цифр числа на основание системы счисления числа в степени разряда цифры числа
1)program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не да,число ошибка в if.
//в принципе можно обойтись и без вычисления прерывать цикл при несовпадении двух шестеренок и
//выводить no
var
n, s, i, m, m1: int64;
begin
s : = 0;
read(n, m1);
for i : = 1 to n - 1 do
begin
read(m);
if m = m1 then
s : = s + 1;
m : = m1;
end;
if (s = n - 1) then
write('yes');
if (s < > n - 1) then
write('no');
end.
3) Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.
Выбери один из ответов и напиши я лично думаю так
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Abzik520303.03.2021 07:56
-
witerold07.09.2022 14:43
-
maxkov555p0chlb30.11.2022 12:12
-
strukserzh07.08.2020 03:25
-
pilel14.04.2020 05:36
-
MaGaFaYa22.04.2023 18:27
-
ксения1279мпсалч17.06.2021 21:28
-
герман7812.12.2022 19:15
-
nevfyjdffyz109.02.2020 18:38
-
marjanazagurska30.07.2020 13:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.