1. Переведите число 163 10 в двоичную, восьмерічную и шестнадцатеричную системы счисления. 2. Переведите числа в десятичную систему счисления: а) 101111012, б) 1658, в)2D816
3. Переведите число 2548 по схеме A8 —A2 -A16
4. Переведите число 9B16 по схеме А16 -А2 —AS
Ответы на вопрос:
всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?
в данной прграмме подсчитывается сумма нечётных элементов массива
если же нужно второе то строку отмеченную {*} следует заменить на
if (i mod 2)> 0 then s: =s+a[i];
program massiv;
uses crt;
var a: array[1..10] of integer;
i,sum,ch: integer;
begin
clrscr;
write('введите число: ' );
readln(ch);
write('введите элементы массива: ');
sum: =0;
for i: =1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2)> 0 then s: =s+a[i]; {*}
end;
writeln; write('исходный массив: ');
for i: =1 to 10 do
begin
write(a[i]);
write(' ' );
end;
writeln; writeln;
write('сумма нечётных элементов массива: ',sum)
writeln; writeln;
write('номера элементов которые больше числа ',ch,' : ' );
for i: =1 to 10 do
if (a[i]> ch) then
begin
write(i: 2);
write(' ' );
end;
writeln; writeln;
write('положительные числа которые кратны числу ',ch,' : ' );
for i: =1 to 10 do
if (a[i]> 0) and (a[i] mod ch=0) then
begin
write(a[i]);
write(' ' );
end;
readkey;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MITSUHA17.03.2020 03:14
-
Сабина1409040292992907.09.2020 22:52
-
мядель12.10.2021 23:00
-
bagzina11.04.2022 17:14
-
EvaVergun01.02.2021 18:37
-
Жибек2004120.03.2023 02:08
-
jasmkal08.08.2021 02:41
-
iliasbro8707379980929.06.2020 03:44
-
Finneas21.06.2023 15:42
-
созданной31.03.2021 10:38
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.