Var
s:string;
i,n,w:integer;
begin
writeln('Введите текст');
readln(s);
s:=s+' ';
n:=length(s);
for i:=1 to n do
if (s[i]='а') and (s[i+1]=' ') then
inc(w);
writeln('Кол-во = ',w);
<span>end.</span>
Var
s:string;
c:char;
i,k:integer;
begin
Write('Введите число: '); Readln(s);
c:=s[1]; k:=1;
for i:=2 to length(s) do
if s[i]=c then Inc(k)
else if s[i]<c then begin c:=s[i]; k:=1 end;
Writeln('Наименьшая цифра ',c,' встретилась ',k,' раз(а)')
end.
<u>Тестовое решение:</u>
Введите число: 3141592653589793
Наименьшая цифра 1 встретилась 2 раз(а)
Var n, i, sum1, sum2, buf: integer;
begin
writeln('Введите количество бросков');
readln(n);
sum1 := 0;
sum2 := 0;
i := 0;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');
readln(buf);
sum1 := sum1 + buf;
end;
for i := 1 to n do
begin
writeln('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');
readln(buf);
sum2 := sum2 + buf;
end;
if sum1 = sum2 then writeln('Ничья') else
if sum1 > sum2 then writeln('Победил человек по имени А')
else writeln('Победил человек по имени B');
<span>end.
Как то так ... </span>