Ответы на вопрос:
Разбиваем по 4 разряда справа. каждая такая четверка - одна 16-ричная цифра от 0 до f. итак 11.1010.1111.0000₂=3аf0₁₆.
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ДаниилВолоснов24.06.2023 21:51
-
solnechnaya209.09.2022 08:14
-
irko0011.12.2021 17:07
-
meimanby24.04.2023 14:22
-
samaya200921.03.2021 09:50
-
kseriii24.04.2021 13:00
-
milanasadykovaMilok24.01.2023 09:36
-
fish170407.08.2021 13:14
-
xandias03.07.2021 10:56
-
Вквквквквк17.09.2020 22:42
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.