Olga_Vyacheslavovich1054
?>

Дана последовательность натуральных чисел, завершающаяся число 0. определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше числа, следующие за числом 0, считывать не нужно. входные данные дана последовательность натуральных чисел, завершающаяся число 0. выходные данные выведите ответ на . примеры входные данные 1 7 7 9 1 0 выходные данные 2 через 10 минут сдавать умоляю на питоне

Информатика

Ответы

gorushko-tabak3

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

pifpaf85

на python:

 

def countvowel(string):       countvowel = 0;       for i in string:               if  i == 'а' or i == 'е' or i == 'ё' or i == 'и' or i == 'о' or i == 'у' or i == 'ы' or i == 'э' or i == 'ю' or i == 'я':                     countvowel+=1      return countvowel            lst = ['кошка','кофе','телевизор','автомобиль']rang = range(len(lst))for i in rang:       lst[i] = countvowel(lst[i])print(lst)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дана последовательность натуральных чисел, завершающаяся число 0. определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше числа, следующие за числом 0, считывать не нужно. входные данные дана последовательность натуральных чисел, завершающаяся число 0. выходные данные выведите ответ на . примеры входные данные 1 7 7 9 1 0 выходные данные 2 через 10 минут сдавать умоляю на питоне
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

РобертИрина
AMR89154331531
Pgr100
Динков
Попова1271
Emasterova77
Рожков Зейдан460
marinazubcko16729
baulinanatalia7201
saltikovaK.S.1482
pizniak
valya-7777
Mariya987
игнатова_Сергей1228
tanyaandreeva728