var
s : string;
i : integer;
f : boolean;
begin
readln (s);
writeln ('Тут ', length (s), ' символов');
f := true;
for i := 1 to length (s) div 2 do
if s[i] <> s[length (s) - i + 1] then f := false;
writeln ('Это слово является перевертышем: ', f); //True/False
end.
var
s : string;
i, k, count : integer;
c : char;
begin
readln (s);
count := 0;
for i := 1 to length (s) do
if s[i] <> ' ' then
begin
c := s[i];
k := i + 1;
break;
end;
for i := k to length (s) do
if (s[i] = ' ') and (c <> ' ') then
begin
if s[i - 1] = c then inc (count);
c := ' ';
end
else if c = ' ' then c := s[i];
if (c <> ' ' ) and (s[length (s)] <> ' ') and (c = s[length (s)]) then inc (count);
writeln (count);
end.
Сторону равностороннего треугольника можно вычислить по формуле -
a=\frac{2h}{\sqrt{3} }a=
3
2h
Где а - длина стороны равностороннего треугольника, h - длина высоты равностороннего треугольника.
Подставим в формулу известные нам значения -
\begin{lgathered}a=\frac{2*6\sqrt{3} }{\sqrt{3} }a=12\end{lgathered}
a=
3
2∗6
3
a=12
a = 12 см.
Площадь равностороннего треугольника можно вычислить по формуле -
S =\frac{a^{2} \sqrt{3} }{4}S=
4
a
2
3
Где S - площадь равностороннего треугольника.
Подставим в формулу известные нам значения -
\begin{lgathered}S =\frac{12^{2} \sqrt{3} }{4}S =\frac{144\sqrt{3} }{4}S = 36\sqrt{3}\end{lgathered}
S=
4
12
2
3
S=
4
144
3
S=36