Формирующие факторы - комплекс объектов и операций, свойственных определенным этапам технологического цикла и предназначенных для формирования заданных требований к товароведным характеристикам продукции.
Сырье и материалы относятся к одному из основополагающих факторов, формирующих качество и количество товаров. Различают основное и вспомогательное сырье.
Var
S, C, Cmax: string;
i, j, k, max: integer;
Begin
Write('Введите предложение: ');ReadLn(S);
S := UpperCase(S) + '.';
max := 0;
i := 1;
while (i <= Length(S)) do
begin
C := '';
while (S[i] in ['А'..'Я']) do
begin
C := C + S[i];
i += 1;
end;
k := 0;
For j := 1 to Length(C) do
if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
k := k + 1;
if (k > max) then
begin
max := k;
Cmax := C;
end;
i += 1;
end;
WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
В паскале не силен, алгоритм следующий
если 2*sqrt(S1/Pi) <= sqrt(S2) то "Круг поместится в квадрат"
иначе "Круг не поместится в квадрат"
если 2*sqrt(S1/Pi) >= sqrt(2*S2) то "Квадрат поместится в круг"
иначе "Квадрат не поместится в круг"