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

решить на языке Python Рассматривается множество целых чисел, принадлежащих числовому отрезку [2481; 14832], которые делятся на 5 или 11 и не делятся на 6, 7, 10, 23. Найдите количество таких чисел и максимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем максимальное число.

👇
Ответ:
IrinaEfremova2003
IrinaEfremova2003
11.12.2021

A = []

x = 0

y = 0

count = 2481

while count <= 14832:

   if count % 5 == 0 and count % 11 == 0 and count % 6 != 0 and count % 10 != 0 and count % 23 != 0:

       x += 1

       A.append(x)

count = 0

while count <= len(A):

   if y < int(A[count]):

       y = int(A[count])

   count += 1

print(x, y)

ну по идее воть))

4,8(33 оценок)
Открыть все ответы
Ответ:
aretem2002
aretem2002
11.12.2021
var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
   a:=pos('(',s);
   b:=pos(')',s);
   if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
   if (a=0) and (b>0) then writeln('Скобка не открыта');
   if (a>0) and (b=0) then writeln('Скобка не закрыта');
   if (a=0) and (b=0) then writeln('Текста в скобках нет');
  end;
end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
  i:=pos(' ',t);
  delete(t,1,i);
  until i=0;
k:=length(t);
for i:=1 to k do
  if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.
4,6(27 оценок)
Ответ:
Hsjsngzhsbdndhd
Hsjsngzhsbdndhd
11.12.2021
Const
  m = 6;
  n = 4;

var
  i, j: integer;
  a: array[1..m, 1..n] of integer;
  b: array[1..n] of longint;
  p: longint;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln('Результирующий массив');
  for j := 1 to n do
  begin
    p := 1;
    for i := 1 to m do p := p * a[i, j];
    b[j] := p;
    write(b[j], ' ')
  end;
end.

Тестовый пример:

Исходный массив
 -22 -23 -14  16
 -17  42 -13  19
 -35   9 -47  -7
  23  -9  19  25
   3  -7 -31  43
  15  42  40   0
Результирующий массив
-13548150 -23004324 201532240 0
4,4(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ