Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу tem (tem[1] — температура, полученная в результате первого измерения, tem[2] — второго и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на пяти языках программирования. бейсик python dim tem(12) as integer dim k, b as integer tem(1) = 22: tem(2) = 25 tem(3) = 20: tem(4) = 18 tem(5) = 16: tem(6) = 14 tem(7) = 20: tem(8) = 23 tem(9) = 17: tem(10) = 19 tem(11) = 20: tem(12) = 21 b = 0 for k = 1 to 12 if tem(k) < 19 then b = b + tem(k) endif next k print b tem = [22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21] b = 0 for k in range (12): if tem[k] < 19: b = b + tem[k] print (b) паскаль алгоритмический язык var k, b: integer; tem: array[1..12] of integer; begin tem[1]: =22; tem[2]: =25; tem[3]: =20; tem[4]: =18; tem[5]: =16; tem[6]: =14; tem[7]: =20; tem[8]: =23; tem[9]: =17; tem[10]: =19; tem[11]: =20; tem[12]: =21; b : = 0; for k : = 1 to 12 do if tem[k] < 19 then begin b : = b + tem[k]; end; writeln(b); end. алг нач цел­таб tem[1: 12] цел k, b tem[1] : = 22 tem[2] : = 25 tem[3] : = 20 tem[4] : = 18 tem[5] : = 16 tem[6] : = 14 tem[7] : = 20 tem[8] : = 23 tem[9] : = 17 tem[10] : = 19 tem[11] : = 20 tem[12] : = 21 b : = 0 нц для k от 1 до 12 если tem[k] < 19 то b : = b + tem[k] все кц вывод b кон с++ #include using namespace std; int main() { int tem[12] = {22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21}; int b = 0; for (int k = 0; k < 12; k++) if (tem[k] < 19) b = b + tem[k]; cout < < b; return 0; }

Данная программа ищет и суммирует все элементы массива, меньшие 19.

Таких у нас 4: 18, 16, 14, 17.

18+16+14+17=65

ответ:65

ответ:65

Решение:идет цикл отбора чисел меньших 19 и их присуммирование в переменную b.

В конце просто выводится полученное значение переменной b.

Преобразуем условие в более понятное.
Обозначаем:
a=Пер­вая буква со­глас­ная;
b=Вто­рая буква со­глас­ная
c=Тре­тья буква глас­ная
Тогда условие можно записать следующим образом:

Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная":
(Пер­вая буква глас­ная ИЛИ Вто­рая буква глас­ная) И Тре­тья буква согласная.
Можно сформулировать еще короче:
"Пер­вая ИЛИ вторая буква глас­ная, а третья обязательно согласная".
Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
  i:integer;
begin
  i:=Length(s);
  while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
  end;
  n:=Length(s)
end;

var
  s1,s2:string;
  i,p,n1,n2:integer;
begin
  Write('Введите первую строку: '); Readln(s1);
  CheckString(s1,n1);
  if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
  else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is  now=l2ead  my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
  var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
  if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
  else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.