Используем закон де Моргана, закон двойного отрицания, идемпотентность. Получаем A+B. Подробное решение во вложении.
Идем от обратного, Нужно получить из 100019 операциями -1 и /7 число 1.
1,2,3) Целочисленно 100019 на 7 не делится. ближайшее число, делимое на 7 это 100016 ( целочисленно делим 100019/7 = 14288, 14288*7=100016). Для этого нужно сделать трижды операцию -1
100019-1-1-1=100016
4) 100016/7 = 14288.
5) 14288 опять не делится. Ближайшее число <span>14287.
</span>14288-1=14287
6) 14287/7=2041
7,8,9,10) 2041-1-1-1-1=2037
11) 2037/7=291
12,13,14,15) 291-1-1-1-1=287
16) 287/7=41
17,18,19,20,21,22) 41-1-1-1-1-1-1=35
23) 35/7=5
24,25,26,27) 5-1-1-1-1=1
Итого я насчитал 27 ходов.
Var
a : array ['a'..'z'] of integer;
c : char;
begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
<span>программе Excel поиск 25 в количество</span>