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

Дан массив из 8 элементов, заполненный числами с клавиатуры. Найти минимальный элемент массива, оканчивающийся на 9. (Предполагается, что в последовательности всегда имеется число, оканчивающееся на 9)

👇
Ответ:
sksjdjdjxk
sksjdjdjxk
26.08.2022

Вот код на языке Python:

a = []

for i in range(8):

   a.append(int(input()))

print(a)

nine = []

for n in a:

   if n % 10 == 9:

       nine.append(n)

print(min(nine))

4,8(56 оценок)
Ответ:
kostetXD
kostetXD
26.08.2022

Для нелюбящих указывать язык в задании предлагается решение на C# 7.3

using System;

using System.Collections.Generic;

using System.Linq;

public class Program

{

public static void Main()

{

 int[] data = ReadIntSeq(8, "Enter values").ToArray();

 Console.Write(string.Format("Minimal number that ends by 9 is {0}", data.MinBy(x => x % 10 == 9)));

}

 

public static IEnumerable<int> ReadIntSeq(int n, string promt = null)

{

 if (promt != null)

  Console.WriteLine(promt);

 for (int i = 0; i < n; i++)

 {

  yield return int.Parse(Console.ReadLine());

 }

}

}

public static class Extensions

{

public static T MinBy<T>(this IEnumerable<T> source, Func<T, bool> predicate) where T: IComparable

{

 return source.Where(predicate).Min();

}

}

4,7(72 оценок)
Открыть все ответы
Ответ:
Cyndyma
Cyndyma
26.08.2022
Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250
4,4(22 оценок)
Ответ:
Matka2002
Matka2002
26.08.2022
Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.
4,8(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ