Текст_сказки = replace('сказоч', 'чудес', текст_сказки)
Он не равнобедренный,он равносторонний.
<span> <span>begin
readln(a);
readln(b);
readln(c);
if (a=b)or(a=c)or(b=c)
then writeln('равнобедренный')
else writeln('неравнобедренный');
end<span>;</span></span></span>
Пусть пару имеют 2n камней, тогда без пары тоже 2n камней. Каждая пара и каждый непарный камень занимают один столбец, поэтому всего будет занято n + 2n = 3n столбцов.
Всего доступно столбцов 110/2 = 55, поэтому 3n ≤ 55, n ≤ 18.
Максимальному n = 18 соответствует максимальное количество камней 4n = 72.
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
<span> end.</span>