Лёг-оньк -ого
сух-оньк-ого
мяг -оньк -ого
<span>плох-оньк-ого</span>
C1= 135
C2=$A2+B$1 = 45+25=70
C3=$A3+B$1 = 120 + 25 = 145
D1=$A1+C$1 = 110+<span>135= 245
D2=$A2+C$1 = 45+135= 180
D3=$A3+C$1 = 120+135= 255
</span>
Ответы в приложенииииииииииииииииии
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.