((a+b)*c)*a = (a+b)*(c*a)
p1 = (a+b)
p2 = c*a
p = (a+b) * c * a
a b c p1 p2 p
0 0 0 0 0 0
0 0 1 0 0 0
0 1 0 1 0 0
0 1 1 1 0 0
1 0 0 1 0 0
1 0 1 1 1 1
1 1 0 1 0 0
1 1 1 1 1 1
(a+b)*c*a = a*a*c + a*b*c = a*c*b + a*b*c = a*c*(b+1) = a*c
Заменяет в строке
var
s : string;
i, lim : integer;
begin
readln (s);
i := 1;
lim := length (s);
while (i <= lim) do
begin
if s[i] in ['1'..'9'] then
begin
if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
begin
write ('ten');
inc (i);
end
else
case s[i] of
'1' : write ('one');
'2' : write ('two');
'3' : write ('three');
'4' : write ('four');
'5' : write ('five');
'6' : write ('six');
'7' : write ('seven');
'8' : write ('eight');
'9' : write ('nine');
end;
end
else write (s[i]);
inc (i);
end;
end.<span>
</span>
В borland pascal типа данных, который может вместить такое число, нету. может создать массив, хранить в нем разряды числа, а при выводе соединять в одно число.
либо перейди на free pascal. там int64 тебе идеально подойдет.
используем круги Эйлера(см. вложение)
Ответ: 100 страниц
10. 4^4= 256
11.
F(1) = 1+3= 4
F(2) = 2+3=5
F(3)= 5+4=9
F(4)=9+5=14
F(5)= 14+9= 23
F(6)= 23+14=37
F(7) = 37+23=60 - ответ