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

Уровень A. 1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, которые оканчиваются на 8 и делятся на 3.

2) Заполните массив случайными числами в интервале [100,999] и переставьте их по воз-растанию средней цифры.

3) Заполните массив случайными числами в интервале [0,1000] и выведите номера всех элементов, которые равны последнему элементу.

Уровень B.

1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

2) Заполните массив случайными числами в интервале [100,999] и переставьте их по воз-растанию суммы цифр.

3) Заполните массив случайными числами в интервале [0,1000] и выведите номера двух соседних элементов, произведение которых наибольшее.

👇
Ответ:
Аким548
Аким548
21.11.2020

ответ:A№1

mass = [int(input()) for i in range(5)]

for i in mass:

   if i % 3 == 0 and i % 10 == 8:

       print(i, end=' ')

№2

from random import randint

mass = [randint(100, 999) for i in range(100, 1000)]

for i in range(len(mass) - 1):

   for j in range(i + 1, len(mass)):

       if mass[i] % 100 > mass[j] % 100:

           mass[i], mass[j] = mass[j], mass[i]

print(mass)

№3

from random import randint

mass = [randint(0, 1000) for i in range(1000)]

for i in range(len(mass) - 1):

   if mass[i] == mass[-1]:

       print(i, end=' ')

B№1

mass = [int(input()) for i in range(5)]

k = 0

for i in mass:

   if str(i)[0] == '8':

       k += 1

print(k)

№2

from random import randint

mass = [randint(100, 999) for i in range(100, 1000)]

for i in range(len(mass) - 1):

   for j in range(i + 1, len(mass)):

       if sum(map(int, str(mass[j]))) < sum(map(int, str(mass[i]))):

           mass[i], mass[j] = mass[j], mass[i]

print(mass)

№3

from random import randint

mass = [randint(0, 1000) for i in range(1000)]

print(mass)

k = mx = 0

for i in range(1, len(mass)):

   if mass[i] * mass[k] > mx:

       mx = mass[i] * mass[k]

       max_i, max_k = i, k

   k += 1

print(max_k, max_i)

Объяснение:

не знаю сколько чисел должно быть в массиве в интервале от 0, 1000

если надо изменить, то поменять в range(1000) на нужное кол-во чисел

4,7(32 оценок)
Открыть все ответы
Ответ:
MoskowCorp
MoskowCorp
21.11.2020
Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.
4,7(92 оценок)
Ответ:
Saidusa
Saidusa
21.11.2020
//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49
4,7(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ