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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
1 кубик - равен 1г
Мы запомним синий цвет
Вот такое вот количество
Program Premier_liga_2;
var B, Diff: array [1..16] of integer;
Team: array[1..16] of string;
I, K, X, Z, P: integer;
St: string;
begin
writeln('Введите названия команд и полученные ими очки');
for I:=1 to 16 do
begin
write(I, ' Название: '); readln(Team[I]);
write('Очки: '); readln(B[I]);
write('Забитые мячи: '); readln(Z);
write('Пропущенные мячи: '); readln(P);
Diff[I]:= Z-P;
end;
for K:=1 to 15 do
for I:=1 to 16-K do
if (B[i] < B[I+1]) or
((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then
begin
X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;
St:=Team[I]; Team[I]:=Team[I+1];
Team[I+1]:=St;
end;
for I:=1 to 16 do
begin
for K:=1 to 18-length(Team[I]) do
Team[I]:=Team[I]+' ';
writeln(I:2,' ',Team[I]:18,B[I]:2)
end;
end.
Система – это целое, состоящее из частей, взаимосвязанных между собой.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Пример в Excel. лист защищен без пароля, чтобы не испортить формулы. Программа работает от 0 до 255 числа. Для перевода достаточно разделить, отбросив дробную часть и затем выписать результат в обратном порядке.