Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>
Ответ:
program beside;
var a, b, c, maxi, mini: integer;
begin
Read(a, b, c);
maxi := max(a, max(b, c));
mini := min(a, min(b, c));
if (b = maxi) or (b = mini) then
Writeln('Yes')
else
Writeln('No')
end.
Объяснение:
<span>Москва верстой далека, а сердцу рядом.
От слова до дела - целая верста.
</span>
Для измерения давления в помещении ( или на улице )