<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,1,12); a.Println;
var b:=ArrRandom(20,1,12); b.Println;
Writeln('Число пар: ',a.Zip(b,(x,y)->x=y).Count(x->x))
end.
<u>Пример</u>
7 8 3 2 4 4 2 6 1 3 5 10 7 10 12 10 3 11 2 1
2 12 4 10 9 8 2 3 12 11 2 1 4 10 8 10 9 9 11 4
Число пар: 3
1. =A4+D6.
2. =B3-B9.
3. =B4-E8.
4. =B11+E4.
5. =E11*5.
6. =A1+2.
7. =E8*9.
8. =D16-25.
9. =C1-B5.
10. =B15+C8.
11. =C$2+$D4.
12. E$12+$D14.
13. $E$3+C1.
14. $D$2+D1.
15. B3+$D$3-E$2.
16. $E$3+C1.
17. C$2+$B4.
18. $E$3+C1.
19. Неверная ссылка.
20. C$22*$D22.
Высказывание будет ложным при наименьшем х = 3
Дописываем немного код для перебора и проверяем вывод
var
x, a, b, t: longint;
begin
for t := -1000 to 1000 do
begin
x := t;
a := 0;
b := 1;
while x > 0 do
begin
if x mod 2 > 0 then
a := a + x mod 8
else
b := b * (x mod 8);
x := x div 8;
end;
if (a = 2) and (b = 12) then
writeln(t);
end;
end.
Вывод 598
626
654
689
906
913
т.е. минимальное число 598
Аналитическое решение:
имеем дело с 8ричным числом. Перебираем его цифры.
Если цифра нечетная то сумируем ее к А, а четные перемножаем с В
В = 12 это произведение 12 = 2*6 = 3*4 = 1*12, но нужно чтоб все числа были четные потому 2*6
А = 2. 2 = 2 = 1+1 , поскольку числа нечетные, то 2 = 1+1
Значит у нас есть 4 8ричные цифры 2,6,1,1
Минимальное число которое может из них получиться 1126(8) = 598(10)
Var n:string;k,i:integer;beginreadln(n);k:=length(n);if k=3 then writeln('yes') else writeln('no');end.