Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
113x=237(8)
237(8)=2×8²+3×8+7=128+24+7=159(10)
113(x)=1×x²+1×x+3=x²+x+3
x²+x+3=159
x²+x-156=0
D=1+624<span>=625
x=-1+25</span>/2=12
В каждом горизонтальном слое ядра расположены в форме квадрата, в i-м слое i рядов по i ядер - всего .
Первая пирамида: 2 слоя, ядер.
Вторая: добавляется еще 3-й слой, всего ядер.
Третья: ядер.
Четвертая: ядер.
Const
t = 10;// количество чисел в массиве
var
a: array[1..t] of integer;
i, min, k, tmp, klv, z: integer;
b: boolean;
begin
for i := 1 to t do
a[i] := random(10) + 1; //Рандом чисел от 1 до 10
writeln('Массив:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
for i := 1 to t - 1 do
for k := i + 1 to t do
if a[i] > a[k] then
begin
tmp := a[k];
a[k] := a[i];
a[i] := tmp;
end;
writeln('После сортировки:');
for i := 1 to t do
write(' ', a[i]:2);
writeln;
klv := 0;
writeln('Введите число X:');
readln(z);
for i := 1 to t do
if a[i] = z then
begin
b := true;
inc(klv);
end;
if b then
begin
writeln('Число ', z, ' встречается ', klv, ' раз(а).');
end;
if b = false then writeln('Число ', z, ' не встречается.');
end.
Перефразируем, что бы было понятней:
Первая буква не согласная и последняя буква не гласная
Или
Первая буква гласная и последняя буква согласная
Ищем:
1) первая буква гласная, последняя буква согласная - подходит
2)первая буква согласная, последняя буква согласная - не подходит
3) Первая и последняя гласные - не подходит
4)первая буква согласная, последняя гласная - не подходит
Ответ: 1)Юлиан