Дана непустая строка из строчных букв. напечатать в алфавитном порядке все гласные буквы, не входящие в строку

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString('Исходная строка:');

 'аеёиоуыэюя'.Except(s).Println(',')

end.

Объяснение:

Язык Паскаль.

Модель:

Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.

ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.

Листинг:

uses Crt;

const n=850000;

          m=7;

type Metro = array [1..m] of longint;

var     A: Metro;

            i: integer;

  P, max: longint;

begin

ClrScr; Randomize; max:=0;

for i:=1 to m do

  begin

     P:=1+random(100000);

     if (P mod 2 = 0) then P:=(-1)*P;

     A[i]:=n+P;

     if A[i]>max then max:=A[i];

       WriteLn ('   ', i, ': ',A[i]:5);

  end;

 WriteLn(' Max = ',max);

ReadLn;

end.

Результат работы - в прикрепленных фото.

Объяснение:

Выборка по всем записям:

Выбрать конкретные поля из таблиц, расположить их в требуемом порядке, задать сортировку по нескольким критериям.

Выборка с условием:

Для некоторых полей добавляется условие в виде некоторого критерия для выборки записей.

Запрос с параметрами:

Условие отбора указывается в запросе неявно и формируется в момент обращения к запросу.

Запрос с вычисляемыми полями:

В запросе формируются новые поля, не существующие ни в одной из таблиц. Значения этих полей вычисляются по формулам, описываемым в запросе.