Пишу на паскале
var cp:real;
i,k,sum:integer;
mass:array[1..4] of integer;
begin
for i:=1 to 4 do
begin
write('mass[',i,']= ');
read(mass[i]);
k:=k+1;
sum:=sum+mass[i];
end;
cp:=sum/k;
writeln('Среднее значение переменных равно ',cp);
end.
<span>
</span>
1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
Var
s:string;
b:char;
i,n:integer;
begin
writeln('Введите текст');
readln(s);
writeln('Введите символ');
readln(b);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
s[i]:=b;
writeln(S);
<span>end.</span>
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
Вот ответ: 1+2+3+4:5+6-7=1