Количество слогов считаем по количеству гласных букв в слове.
Program pr; uses crt;
var str,s: string; a,i,j,len,k,kslog: byte;
Begin Writeln('Введите предложение'); readln(str); Writeln('Введите кол-во слогов'); readln(k); Writeln('Слова с ',k,' слогами:'); Writeln;
len:=length(str); a:=0; kslog:=0;
for i:=1 to len do Begin if (str[i] = ' ') then Begin s:=copy(str,i+1,a);
for j:=1 to length(s) do Begin if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then inc(kslog); end; if (k=kslog) then Writeln(s); kslog:=0; a:=0; end else a:=a+1; end;
Writeln; Writeln('Для завершения программы нажмите Enter'); readln; end.<span> </span>
Var a,c,f:integer; d:string; begin f:=0; writeln('введите строку'); readln(d); a:=pos('е',d); writeln('первый символ стоит на ',a,' позиции'); for c:=1 to length(d) do begin if (d[c] = 'е') then f:=c; end; writeln('последний символ стоит на ',f,' позиции'); <span> end.</span>
1. Четыре числа - a, b, c, d, каждое больше нуля их среднее арифметическое - (a+b+c+d)/4 2. Два числа a,b <span>среднее арифметическое их квадратов = (a^(2)+b^(2))/2 </span><span>среднее арифметическое их модулей = (|a|+|b|)/2</span>