"Каким должен быть отрезок А" - если имеется ввиду максимальная длина А - смотрим рисунок
Если есть варианты ответа - надо смотреть по числовой прямой (на рисунке) и выбирать, который из отрезков будет находиться между 13 и 37
Решение на рисунке.
Считается, что слова отделяются друг от друга пробелом.
var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s:=s+' ';
p:=pos(' ',s);
while p>0 do
begin
if pos('ов ',s)=p-2 then writeln(copy(s,1,p-1));
delete(s,1,p);
p:=pos(' ',s);
end;
end.
Пример:
Введите строку:
пример кров слово шов олово ров
кров
шов
ров
Var
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638
50 Кбайт=51200 Байт = 409600бит
409600÷16÷40=640 бит на 1 строку
640 ÷ 16=40 символов
Ответ: на одной строке 40 символов.