110110110 = 100000000(2) + 10000000(2) + 100000(2) + 10000(2) + 100(2) + 10(2) = 2^8 + 2^7 + 2^5 + 2^4 + 2^2 + 2 = 256 + 128 + 32 + 16 + 4 + 2 = 438
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>
A+А/100*20=А+А*0,2-это с 20%
Следовательно итоговая формула если К>=50. тогда (К-50)*А*0,2+К*А
если К<=50, тогда К*А
В шитье , в парикмахерской,урок труда это тоже моделирование