Бра́узер<span>, или </span>веб-обозреватель<span>— </span>прикладное программное обеспечение<span> для просмотра </span>веб-страниц<span>, содержания </span>веб-документов<span>, </span>компьютерных файлов<span> и их </span>каталогов<span>; управления </span>веб-приложениями<span>; а также для решения других задач.</span>
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}
<span> <span>var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n);
k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.</span></span>
Кате нужно вымыть посуду и сделать урки, что бы сходить в кино или пригласить друзей