В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Sergeeva1703
Sergeeva1703
08.02.2022 13:17 •  Информатика

5. Чему будет равна переменная «c» после выполнения этой программы:a := 24 b := 5
b := mod(a,b) + 4
c := mod(a,b) + 1

ответ: 

6. Чему будет равна переменная «c» после выполнения этой программы:a := 20
b := 3
b := div(a,b)
c := mod(a, b+1)

ответ: 

7. Чему будет равна переменная «c» после выполнения этой программы:a := 24
b := 5
b := mod(a,b)
c := div(a, b+1)

Показать ответ
Ответ:
Marshmallow123
Marshmallow123
04.04.2021 07:52

li = []

elements = 1

negative_index = 0

positive_index = 0

print("Введите 0 что бы остановить ввод")

while elements != 0:

   elements = int(input("Введите элементы списка\n"))

   li.append(elements)

li2 = li[:]

li2.sort()

length = li.__len__()

print(li)

for i in range(0, length-1):

   for j in range(length-1, 1, -1):

       if li2[i] * (-1) == li2[j]:

           for k in range(0, length-1):

               if li2[i] == li[k]:

                   negative_index = k

               if li2[j] == li[k]:

                   positive_index = k

if negative_index < positive_index:

   print("Индекс противоположного числа(1) ->", negative_index)

   print("Индекс противоположного числа(2) ->", positive_index)

elif negative_index == positive_index == 0:

   exit(0)

else:

   print("Индекс противоположного числа(1) ->", positive_index)

   print("Индекс противоположного числа(2) ->", negative_index)

P.S

Код не идеальный, но задачу выполняет

0,0(0 оценок)
Ответ:
long6
long6
28.11.2021 19:14

Я не могу загрузить файлы, но вот коды. Создай файлы и вставь

repeat_.pas:

program repeat_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

repeat

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

until n < k;

WriteLn('всего делителей - ', counter);

end.

while_.pas:

program while_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

while (k <= n) do

begin

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

end;

WriteLn('всего делителей - ', counter);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота