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

Через цикл вывести 12 месяцев, но у меня тут почему то он не выводит, что в эту программу добавить


Через цикл вывести 12 месяцев, но у меня тут почему то он не выводит, что в эту программу добавить

👇
Ответ:
veronikamantul
veronikamantul
07.05.2021

У вас надо сделать табулирование всех if вместе с print - то есть они не находятся в цикле, и происходит просто прибавление n+=1

предлагаю альтернативу:

# массив с месяцами

months_list = ["January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December", "конец"]

# цикл для вывода массива

for month in months_list:

print(month)

4,8(78 оценок)
Ответ:
Nna564
Nna564
07.05.2021

Объяснение:

смотри картинки


Через цикл вывести 12 месяцев, но у меня тут почему то он не выводит, что в эту программу добавить
Через цикл вывести 12 месяцев, но у меня тут почему то он не выводит, что в эту программу добавить
4,6(61 оценок)
Открыть все ответы
Ответ:
zajka23oz3xl9
zajka23oz3xl9
07.05.2021
Const
  n = 50; {Максимальное количество чисел в последовательности}
  t = -77;{Число-ограничитель, означающее конец ввода}

type
  ta = array[1..n] of integer;

var
  a: ta; {массив членов последовательности}
  az: ta; {массив, содержащий номера нулей в последовательности}
  kz: integer; {количество членов в массиве az} 
  i, iz, p, n1, n2: integer;
  flag: boolean;

begin
  {Вводим числа и сразу же отслеживаем номера нулей в последовательности}
  Writeln('Вводите последовательность чисел, окончание ввода по -77');
  i := 0; iz := 0;
  repeat
    Read(p);
    if p <> t then begin
      i := i + 1;
      a[i] := p;
      if p = 0 then begin
        iz := iz + 1;
        az[iz] := i;
      end
    end
  until p = t;
  kz := iz;
  Writeln('Вывод последовательностей');
  {1. До первого встреченного нуля}
  for i := 1 to az[1] - 1 do Write(a[i], ' ');
  Writeln;
  {2. Остальные промежутки} 
  for iz := 1 to kz do
  begin
    for i := az[iz] + 1 to az[iz + 1] - 1 do Write(a[i], ' ');
    Writeln;
  end
end.

Тестовое решение:
Вводите последовательность чисел, окончание ввода по -77
1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77
Вывод последовательностей
1 2 3
5 6 7

10 11 12 13
4,6(26 оценок)
Ответ:
200005nikolll
200005nikolll
07.05.2021

program actors;

var

 i: integer;

 mas: array [1..10] of integer;

begin

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 9) and (mas[i] <= 11) then

     writeln('Элемент: ', i, ' Значение: ', mas[i]);

 end;

end.

Объяснение:

program actors;  // Название программы

var

 i: integer;  // Целочисленная переменная счетчик для массива

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 for i := 1 to 10 do   // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]);  // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do  // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 9) and (mas[i] <= 11) then  // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда

     writeln('Элемент: ', i, ' Значение: ', mas[i]);  // Выводим индекс и значение элемента

 end;  // Конец цикла

end. // Конец программы

4,7(4 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ