Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Возможно это объем который помещается на листе
1,11,111,1111,11111,111111....
10,100,1000,10000,100000...
101,111,101,111,101,111,101...
99000099
если нужна прога то вот
program pr_1;var x,c,c1,k,y,max:longint;beginmax:=0;for x:=1000 to 9999 do beginfor y:=1000 to 9999 do beginc:=x*y;c1:=c;k:=0;while c<>0 do begink:=k*10+(c mod 10);c:=c div 10;end;if ((k=c1) and (k>max)) then max:=k;end;end;writeln('ответ:',max);writeln('x=',x);writeln('y=',y);end.