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

Дан список чисел. определите, сколько в этом списке элементов, которые больше двух своих соседей и выведите количество таких элементов. входные данные вводится список чисел. все числа списка находятся на одной строке. выходные данные выведите ответ на . входные данные 1 2 3 4 5 выходные данные 0

👇
Ответ:
valeraitrva
valeraitrva
24.03.2020
# Код на ruby 2.2.3p173
def zadanie(line)
    a = []
    (line.split(" ")).to_a.each {|element| a << element.to_i}

    return 0 if a.size <= 2

    k = 0
    for i in 2..a.size - 2
        k = k + 1 if a[i-1] < a[i] and a[i+1] < a[i]
    end
    return k
end

# Примеры применения
p zadanie("1 2 3 4 5")
p zadanie("1 5 3 4 2")
4,4(8 оценок)
Открыть все ответы
Ответ:
orxan4176
orxan4176
24.03.2020
Var
  x:double;
begin
  x:=102;
  while x<=999 do begin Writeln(x,' ',exp(ln(x)/3)); x:=x+3 end;
end.

Результат выполнения программы:
102 4.67232872835526
105 4.71769398031653
108 4.7622031559046
111 4.80589553370533
114 4.84880758583988
117 4.89097324650875
120 4.93242414866094
123 4.97318983326859
126 5.01329793496458
129 5.05277434720856
132 5.09164336965949
135 5.12992784003009
138 5.16764925236362
141 5.2048278633942
144 5.24148278841779
147 5.27763208790408
150 5.31329284591305
. . .
960 9.86484829732188
963 9.87511349546425
966 9.8853573964768
969 9.89558011047944
972 9.90578174668388
975 9.91596241340387
978 9.92612221806536
981 9.93626126721644
984 9.94637966653718
987 9.95647752084936
990 9.96655493412597
993 9.97661200950066
996 9.98664884927706
999 9.99666555493786
4,8(72 оценок)
Ответ:
kostyaluch
kostyaluch
24.03.2020
Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)
4,6(15 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ