Дано предложение.
1) Найти два самые минимальные по длине соседствующие слова, и вывести на экран.
2) Вывести кол-во букв этих двух минимальных соседствующих слов.

более месяца назад

Просмотров : 26 Ответов : 1

Лучший ответ:

Var txt: string;
    i,k,n,m,mn: integer;
    a: array of string;
begin
write(предложение: ); readln(txt);
k:=0; mn:=length(txt);
for i:=1 to length(txt) do
if txt[i]= then k:=k+1;
k:=k+1;
setlength(a,k+1);
for i:=1 to k-1 do
begin
    a[i]:=copy(txt,1,pos( ,txt)-1);
    delete(txt,1,pos( ,txt));
end;
a[k]:=txt;
n:=length(a[1]);
for i:=2 to k do
begin
    if n+length(a[i])    begin
      mn:=n+length(a[i]);
      m:=i-1;
    end;
    n:=length(a[i]);
end;
writeln(количество букв: ,mn);
writeln(слова: ,a[m], ,a[m+1]);
end.

предложение: кот пришел домой в три часа ночи
количество букв: 4
слова: в три

более месяца назад

Ваш ответ:

Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.