В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Mary240106
Mary240106
23.01.2021 21:37 •  Информатика

Написать подпрограмму, которая для целого числа определяет сумму разрядов «тысяч» и
«десятков» в его записи (например, 2347  2+4=6). В основной программе ввести два целых числа.
С подпрограммы определить суммы в двух введенных числах и распечатать их.

Показать ответ
Ответ:
juliana123456
juliana123456
17.05.2022 15:45
1) пассажир Иванов живёт в Москве;
2) проводник живёт на полпути между Москвой и Санкт-Петербургом;
3) пассажир-однофамилец проводника живёт в Санкт-Петербурге;
4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника;
5) у пассажира Петрова трое детей;
6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде

7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге
8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге
9) п3+п8 =  У проводника фамилия Петров
10) п6+п9 = машинист не Сидоров. Машинист - Иванов

ответ: Иванов
0,0(0 оценок)
Ответ:
Ксю11111111147
Ксю11111111147
04.07.2022 18:05
Const
  n=20;
var
  a:array[1..n] of integer;
  i,nmax,nmin,k:integer;
  to_min:boolean;
begin
  { инициализация массива случайными значениями }
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i]:=Random(99)+1; { Интервал [1..99] }
    Write(a[i],' ');
  end;
  Writeln;
  { вот теперь массив действительно "задан" }
  k:=a[1]; nmax:=0; nmin:=0; i:=1;
  while (a[i]=k) and (i<=n) do Inc(i);
  if i<=n then begin to_min:=(a[i]<k); k:=a[i] end;
  for i:=i+1 to n do
  begin
    if (k<a[i]) and to_min then
      begin Inc(nmin); to_min:=false end
    else
      if (k>a[i]) and (not to_min) then
        begin Inc(nmax); to_min:=true end;
    k:=a[i]
  end;
  Writeln('Найдено локальных минимумов: ',nmin);
  Writeln('Найдено локальных максимумов: ',nmax)
end.

Тестовое решение:
Элементы массива
82 46 46 46 98 15 63 77 28 67 76 19 52 56 57 39 13 98 54 85
Найдено локальных минимумов: 6
Найдено локальных максимумов: 5
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота