М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Рассматривается множество целых чисел, принадлежащих отрезку [200; 9120], которые делятся на 8 и не делятся на 7, 11, 17 и 19. Найдите количество таких чисел и минимальное из них. В ответе запишите два числа через пробел: сначала количество, затем минимальное число. Как найти меньшее число? Программа для максимального такая, работает верно. Решение только на ПИТОНЕ.

count = 0
Max1 = 0
for n in range (200, 9120+1):
if (n%8 == 0) and (n%7 != 0) and (n%11 != 0) and (n%19 != 0) and (n%17 != 0):
count += 1
Max1 = n
print (count)
print (Max1)

👇
Ответ:
sashazen03
sashazen03
24.05.2022

amount = 0

minimum = 0

for i in range(200, 9121):

 if i % 8 == 0 and i % 7 != 0 and i % 11 != 0 and i % 17 != 0 and i % 19 != 0:

   amount += 1

for i in range(200, 9121):

 if i % 8 == 0 and i % 7 != 0 and i % 11 != 0 and i % 17 != 0 and i % 19 != 0:

   minimum = i

   break

print('Количество:', amount)

print('Минимальное:', minimum)

4,4(1 оценок)
Ответ:
DobinaDaria1
DobinaDaria1
24.05.2022

count = 0

Min1 = 9120

for n in range (200, 9120+1):

   if (n%8 == 0) and (n%7 != 0) and (n%11 != 0) and (n%17 != 0) and (n%19 != 0):

       count += 1

       if Min1 > n:

           Min1 = n

print (count,Min1)

Объяснение:

Просто добавить условие и задать начальное значение как максимальное из отрезка

4,4(97 оценок)
Открыть все ответы
Ответ:
uylia7
uylia7
24.05.2022
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9
4,8(85 оценок)
Ответ:
13alla68
13alla68
24.05.2022
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,4(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ