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

Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. требования к подпрограмме: процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. второй - результат работы подпрограммы. (паскаль абц (pascal abc))

👇
Ответ:
Anny505
Anny505
29.04.2023
Procedure search(n: integer; var mineven: integer);
begin
  mineven := 10;
  while n > 0 do
  begin
    var last := n mod 10;
    if (last mod 2 = 0) and (last < mineven) then
      mineven := last;
    n := n div 10;
  end;
  if mineven = 10 then
    mineven := -1;
end;
4,5(15 оценок)
Ответ:
nikrozumenko
nikrozumenko
29.04.2023
Program prog;
function Search(n: integer): integer;
var
  input: array[1..4] of integer;
  even: array[1..4] of integer;
  atLestOne: boolean;
begin
  input[1] := n div 1000;
  input[2] := n mod 1000 div 100;
  input[3] := n mod 100 div 10;
  input[4] := n mod 10;
  if (input[1] mod 2 = 0)
    begin
      even[1] := input[1];
      atLestOne := True;
    end;
  if (input[2] mod 2 = 0)
    begin
      even[2] := input[2];
      atLestOne := True;
    end;
  if (input[3] mod 2 = 0)
    begin
      even[3] := input[3];
      atLestOne := True;
    end;   
  if (input[4] mod 2 = 0)
    begin
      even[4] := input[4];
      atLestOne := True;
    end;
  if atLestOne = True then
    Search := Low(even)
  else
    Search := -1;
end;
4,7(63 оценок)
Открыть все ответы
Ответ:
BOYKO10
BOYKO10
29.04.2023
Var
  A, B, C: array[1..15] of real;
  i, m, max_weight, b_n, c_n, N, max: integer;
  s: real;

begin
  N := 15;
  m := 10;
  max_weight := 50;
 
  writeln('ВВедите массы состава ', m, ' состоящего из ', n, ' вагонов');
  for i := 1 to n do
  begin
    write('Масса вагона № ', i, ' = ');
    readln(a[i]);
  end;
  writeln();
 
  writeln('Все вагоны:');
  for i := 1 to n do
    writeln('Вагон №', i, ' = ', a[i], ' тон');
  writeln();
 
  writeln('Порожние вагоны:');
  for i := 1 to n do
    if (A[i] <= m) then
      writeln('Вагон №', i);
  writeln();
 
  s := 0;
  writeln('Груженные вагоны:');
  for i := 1 to n do
    if (A[i] > m) then begin
      s := s + a[i];
      writeln('Вагон №', i);
    end;
  Writeln('Сумма масс груженных вагонов = ', s);
 
  {//  if s > max_weight then begin
  //    writeln('Превышение массы! Состав не будет сформирован');
  //    exit;
  //  end;}
 
  writeln;
  writeln('Новый состав:');
  s := 0;
  for i := 1 to n do
    if (A[i] > m) and (s + A[i] <= max_weight) then begin
      b_n := b_n + 1;
      s := s + A[i];
      B[b_n] := A[i];
      writeln('Вагон №', b_n, ' = ', B[b_n], ' тон');
    end
    else begin
      c_n := c_n + 1;
      C[c_n] := A[i];
    end;
 
  writeln();
  writeln('Остаток:');
  for i := 1 to c_n do
    writeln('Вагон №', i, ' = ', C[i], ' тон');
  writeln();
 
  max := 1;
  for i := 1 to b_n do
    if B[i] > B[max] then
      max := i;
 
  writeln('Максимальная масса в составе: Вагон №', max, ' = ', B[max], ' тон');
end.
4,8(81 оценок)
Ответ:
jul45
jul45
29.04.2023

вот. музыка, композитор Глинка:

1.    М. Глинки является композитором:
a)    Германии
b)    Италии
c)    России
2.    Какое утверждение о творчестве  М.И. Глинки верно:
a)    Композитор-романтик
b)    Основоположник русской музыки
c)    Входил в «могучую кучку»
3.    Время, в которое жил композитор:
a)    Во второй половине XIX в.
b)    В первой половине XIX в.
c)    В XVIII в.
4.    М.И. Глинки сочинял большое количество:
a)    Романсов
b)    Этюдов
c)    Опер
5.    Опера, написанная М.И. Глинкой:
a)    «Иван Сусанин»
b)    «Борис Годунов»
c)    «Евгений Онегин»
6.    В каком году написана эта опера композитором:
a)    1870
b)    1836
c)    1740
7.    Эта опера написана после поездки:
a)    Во Францию
b)    В Италию
c)    В Румынию
8.    Большая драматургическая роль в опере принадлежит:
a)    Хору
b)    Оркестру
c)    Дуэтам

1. С какой страной связаны образы и темы симфонических произведений Глинки «Арагонская хота» и «Ночь в Мадриде»? Испания
.
8  Имя учителя Глинки, немца по фамилии Ден. Зигфрид

 

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