1. Составить программу ,которая определяет ,сколько раз в предложении встречается слово "дом".
2. Составить программу ,вычисляющую длину самого короткого слова в предложении из трёх слов ,разделённых пробелами.
Паскаль

Код PascalABC.NET 3.2:Var S:string;i,k:integer;BeginWrite('Введите строку: ');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.VarS:string;i,d1,d2,d3:integer;BeginWriteLn('Введите строку:');ReadLn(S);i:=0;Repeati+=1Until S[i] = ' ';d1:=i-1;Repeati+=1Until S[i] = ' ';d2:=i-d1-2;Repeati+=1Until i = S.Length;d3:=i-d2-d1-2;if d3 < d1 then d1:=d3;if d2 < d1 then d1:=d2;WriteLn(d1)End.