Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 14. про- грамма получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчи- вающееся на 14. количество чисел не превышает 1000. введённые числа не превышают 30 000.

program raf105;

var min,n,a,i: integer;

begin

write('введите количество чисел: ');

readln(n);

writeln('вводите числа по очереди');

min: = 30001;

for i: =1 to n do

begin

  readln(a);

  if ((a mod 100)=14) and (a

    then min: =a;

end;

writeln('вывод: ',min);

end.

язык pascalabc

1) Локальная вычислительная сеть (ЛВС) - это соединение устройств в пределах определенной области.

2) Централизованные, децентрализованные и смешанные.

3) Корпоративная сеть — коммуникационная система, принадлежащая и/или управляемая единой организацией в соответствии с правилами этой организации.

4) Modbus: один из наиболее распространенных, используется практически во всех сферах автоматизации

5) Концепция архитектуры открытых систем – основа для построения СИО. На основе анализа иерархических распределенных информационно-управляющих систем, разрабатываемых во многих странах, Международная организация по стандартизации (МОС)

6) Программное обеспечение ЛВС как совокупности компьютеров можно ус-. ловно разделить на системное и прикладное. Системное ПО, используемое в ЛВС, реализует две основные функции: управление ресурсами каждого отдельно- го компьютера (памятью, устройствами ввода-вывода, принтером, дисками и т. д.) и управление совместно используемыми в сети ресурсами (сетевым принтером.

Объяснение:

Var   m, n: integer;   s1, s2, s3: string;   ms: array[1..9] of string;   md: array[1..9] of string;   m1: array[11..19] of string;   me: array[1..9] of string;   flag: boolean; begin     flag : = false; { пока ничего не выведено }   s1 : = 'рубль';   s2 : = 'рубля';   s3 : = 'рублей';   ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста';   ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот';   ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот';   md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок';   md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят';   md[8] : = 'восемьдесят'; md[9] : = 'девяносто';   m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать';   m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать';   m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать';   me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять';   me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять';     write('введите целое число от 1 до 1000: ');   readln(m);   if (m < 1) or (m > 1000) then writeln('шутки шутим? ')   else   if m = 1000 then writeln('одна тысяча ' + s3)       else   begin           { сотни }       n : = m div 100;       if n > 0 then       begin           write(ms[n]);           flag : = true       end;           { десятки }       m : = m mod 100;       if m = 0 then writeln(' ', s3)       else       begin           if (m > 10) and (m < 20) then           begin               if flag then write(' ');               writeln(m1[m], ' ', s3)           end           else           if m > 0 then           begin               n : = m mod 10;               m : = m div 10;               if m > 0 then               begin                   if flag then write(' ') else flag : = true;                   write(md[m])               end;               if n < > 0 then               begin                   { единицы }                   if flag then write(' ');                   write(me[n], ' ');                   case n of                       1: writeln(s1);                       2..4: writeln(s2);                   else writeln( s3)                   end               end               else writeln(' ', s3)           end       end   end end. тестовое решение: введите целое число от 1 до 1000: 314 триста четырнадцать рублей